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SEOUENCF 
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.REM a 


IDENTIFICATION 


PRODUCT CODE 
PRODUCT NAME 
DATE CREATED 
MAINTAINER : 
AUTHOR: 


AC-F 627E-MC 

CKKUAEO 11/24/44 UBI MAP 
JANUARY. 1982 
DIAGNOSTIC ENGINEERING 
DAN MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILI TY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM. EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 

COPYRIGHT (C) 1979. 1982 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY SECTION 


CKKUAAO WAS RELEASED OCTOBER. 
CKKUABO WAS RELEASED OCTOBER. 
CKKUACO WAS RELEASED APRIL. 

CKKUADO WAS RELEASED OCTOBER. 


CKkUAEO WAS RELEASED JANUARY. 


1 


SEQUENCE 


1979 > INITIAL RELEASE 

1980 > ADDITION OF UNIBUS MEMORY TEST 

1981 > TESTING OF 11/24 MAP. 11/24 WITH UNIBUS 

MEMORY ONLY. I POWER MONITOR BIT CHECK. 

1981 > SETUP OF SOFTWARE /HARDWARE SWR ADDRESS 

WAS ADDED TO STARTUP CODE. 

> WHEN SELECTED. THE OPTIONAL CACHE TESTS 
NOW RUN CORRECTLY. 

1982 > THE LMA TEST (11/24 ONLY) WAS MODIFIED TO 

DO A MORE THOROUGH JOB OF CHECKING THE 
ADDRESS LINES. 
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3.1 
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69 



70 
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4.1 

72 


73 


4.2 
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4.3 

75 



76 
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5.1 
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5.3 
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1. ABSTRACT 

THIS PROGRAM IS DESIGNED TO BE RUN ON A POP 11/24 OR 11/44 ON 
WHICH THE CPU, CACHE (IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTIC PROGRAMS HAVE BEEN RUN. THE PROGRAM WILL DETECT ALL 
ERRORS THAT ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING 
CAPABILITIES SO THAT THE FIELD SERVICE ENGINEER CAN VERIFY 
THE FAILURES. THERE MAY BE SOME CASES. SUCH AS THE CACHE 
REGISTER DATA PATH, AND CACHE MEMORY DATA PATH, WHERE 
INTERACTION BETWEEN MODULES PROHIBITS CLOSE ISOLATION, BUT 
THE FAILING FUNCTION WILL BE CALLED OUT SO THE FIELD SERVICE 
ENGINEER CAN COMPLETE THE ISOLATION PROCESS. 

IF THE PROGRAM CATCHES AN ERROR IN AN EARLY TEST AND IS ALLOWED 
TO CONTINUE RUNNING THROUGH THE LATER TESTS THE ERROR INDICATIONS 
FROM THOSE LATER TESTS MAY BE INVALID. THIS IS DUE TO THE STRUCTURE 
OF THE PROGRAM, WHICH ASSUMES THAT ALL AREAS TESTED PRIOR TO THE 
CURRENT TEST ARE FUNCTIONING PROPERLY. 

THE ERROR TYPE OUTS WILL BE IN TABLE FORMAT. WITH A MESSAGE INDICATING 

THE CLASS OF ERROR, A HEADER IDENTIFYING EACH COLUMN AND A REPORT OF 
ALL PERTINENT DATA. WHEN THE TEST CAN PRODUCE MORE THAN ONE ERROR 
CONDITION, A SUMMARY OF ERRORS WILL BE GIVEN AT THE END OF THAT TEST 
CONSISTING OF: THE LOGICAL 'AND* AND ’OR’ OF THE DATA PREVIOUSLY 
REPORTED AND THE NUMBER OF ERRORS IN THIS TCST. (SEE SECTION 6.3 FOR 
AN EXAMPLE OF THE ERROR TYPEOUTS.) 
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2 . REQUIREMENTS 

2.1 EQUIPMENT 

THE BASIC PDP-11/24 OR 44 COMPUTER, INCLUDING THE CPU, CACHE 
(11/44 ONLY). MEMORY MANAGEMENT, AND AN LA-30 OR EQUIVALENT DEVICE 
FOR ERROR MESSAGES. 

2.2 STORAGE 

THIS PROGRAM WILL REQUIRE 8K TO LOAD BUT WILL UTILIZE ALL 
EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 
FROM THE UNIBUS. 

2.3 PRELIMINARY PROGRAMS 

THE CPU. CACHE (IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTICS SHOULD BE RUN BEFORE THIS PROGRAM. THE MEMORY 
DIAGNOSTIC SHOULD AT LEAST MAKE A QUICK VERIFY OF THE AREA 
OF MEMORY THIS PROGRAM WILL LOAD AND RUN IN. 
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3. LOADING PROCEDURE 

3.1 METHOD. 

THIS PROGRAM CAN BE LOADED FROM ANY DEVICE THAT IS 
SUPPORTED BY XXDP AND SHOULD BE LOADED USING THE XXDP 
PROCEDURE FOR THAT DEVICE. 
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4. STARTING PROCEDURE 

4.1 STARTING ADDRESS 

PROGRAM STARTS AT ADDRESS 200 

4.2 PROGRAM AND/OR OPERATOR ACTION 

THE PROGRAM WILL IDENTIFY ITSELF. IF CPU IS AN 11/44, PROGRAM 
WILL PROCEED WITH TESTING. IF CPU IS AN 11/24, AND LOCATION 176 
CONTAINS ZERO (SUCH AS JUST AFTER LOADING), PROGRAM WILL PROMPT 
FOR A SWITCH REGISTER INPUT. IF NONE IS REQUIRED, ENTER <CR>. 

IF YOU DO SO, PROGRAM WILL DEPOSIT A ’T* IN LOCATION 176 (MEANINGLESS 
UNLESS BIT 8 IS ALSO SET) SO THAT SUBSEQUENT RUNNING OF THE PROGRAM 
WILL NOT RESULT IN THE SAME REQUEST. IF MANUFACTURING IS RUNNING 
THIS PROGRAM ON AN 11/24 WITH UNIBUS MEMORY ONLY (NO MAIN MEMORY), 
ENTER A NUMBER WITH. AT LEAST BIT 11 SET (SWR=4000). THIS WILL KEY 
THE PROGRAM TO TEST THE 11/24 IN THAT CONFIGURATION. 

4.3 SPECIAL STARTING PROCEDURE 

IF IT APPEARS THAT THE CACHE IS CAUSING SOME TROUBLE AND 
YOU STILL WANT TO RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 
WITH THE CACHE DISABLED. SIMPLY LOAD THE CACHE CONTROL 
REGISTER (17777746) WITH THE DESIRED NUMBER. THEN LOAD 
THE PC (17777707) WITH THE STARTING ADDRESS (200) AND 
PRESS "CONT INUE". THE PROGRAM WILL NOW RUN NORMALLY EXCEPT 
THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED. 

THIS FACT IS INDICATED IN THE ABSTRACT OF EACH TEST THAT 
CHECKS THE CACHE CONTROL REGISTER. 

DEFINITION OF THE BITS IN THE CACHE CONTROL REGISTER: 

BITOO -DISABLE TRAPS 

BIT02 -FORCE MISS ON READ. WHERE ADDRESS BIT 12 IS 0 
BIT 03 -FORCE HISS ON READ.WHERE ADDRESS BIT 12 IS 1 
BIT 09 -UNCONDITIONAL CACHE BYPASS 
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210 
211 
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213 

214 
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223 
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239 
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241 

242 

243 
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5. OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 


SW15 

1 = 

HALT ON ERROR 

SW14 

1 = 

LOOP ON TEST 

SW13 

1 = 

INHIBIT ERROR TYPEOUTS 

SWl 2 

1 = 

INHIBIT TRACE TRAP 

SW11 

1 = 

SET WHEN RUNNING AN 11/24 WITH NO MAIN MEMORY 

AND ONLY UNIBUS MEMORY 

SW10 

1 = 

BELL ON ERROR 

SW09 

1 = 

LOOP ON ERROR 

SW08 

1 = 

LOOP ON TEST IN SWR<05:00> 

SW07 

1 = 

INHIBIT MULTIPLE ERROR TYPE OUTS 

SW06 

1 = 

SELECT CACHE TESTS. THIS IS USED FOR 

MFG. QUICK VERIFY STATION AND CAN BE SELECTED 

BY APT SCRIPTING. THESE TES T S ASSUME THAT 

ALL MODULES EXCEPT UBI MODULE ARE KNOWN GOOD. 

SW05 

1 = 

SELECT UNIBUS MEMORY TESTS 

SET WHEN A WINDOW EXISTS (SOME U8MAP JUMPERS CUT), AND 
UNIBUS MEMORY OCCUPIES THE ENTIRE WINDOW ADDRESS AREA. 


5.2 SUB-ROUTINE ABSTRACTS 

ALL SUBROUTINE ABSTRACTS APPEAR IN THE CODE BEFORE THEIR 
EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 

BELOW IS A LIST OF THE SUBROUTINE TITLES. 

5.2.1 MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) (SOME IN THIS SOURCE) 

SCOPE HANDLER ROUTINE 
ERROR HANDLER ROUTINE 
ERROR MESSAGE TYPE OUT ROUTINE 

CONVERT 16-BIT VIRTUAL ADDRESSES TO 22-BIT PHYSICAL ADDRESSES 
SAVE AND RESTORE R0-R5 ROUTINES 
TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TRAP DECODER 

POWER DOWN AND UP ROUTINES 

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
END OF PASS ROUTINE 

5.2.2 SUBROUTINES UNIQUE TO THIS PROGRAM 

SUBROUTINE TO TURN OFF AND SAVE T-BIT 

SUBROUTINE TO RESTORE T-BIT TO ITS PREVIOUS CONDITION 

SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 

SUBROUTINE TO EXTRACT MAP ADDRESS FROM PAR CONTENTS 

SUBROUTINE TO DETERMINE 11/24 WITH UNIBUS MEM ONLY & CHECK LMA’S IF SO 

5.2.3 TRAP AND ABORT HANDLER ROUTINES 

CPU TRAP HANDLER ROUTINE 

CACHE TRAPS AND ABORTS HANDLER ROUTINE 

MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 
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290 
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292 
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295 

296 

297 


5.3 RUNNING UNDER APT 

THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 

16K CORE MEMORY, AND 300 BAUD. 

THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 

1. E TA8LE 'A' IS USED FOR APT DUMP MODE. 

A. IN ADDITION TO NORMAL CPU DIAGNOSTIC TESTS, THIS 

TABLE WILL SELECT THE OPTIONAL CACHE TESTS, (SSWREG=100) . 

2. E TABLE ’8* IS USED FOR APT QV MODE WHILE RUNNING ON A 
MANUFACTURING QV STATION. IT ACCOMPLISHES WHAT ETABLE 
'A' DOES BUT ADDITIONALLY SUPRESSES TYPEOUTS . (SENVM=240) 

3. ETABLE 'C' IS USED FOR APT QV OR RUNTIME MODES WHILE 
RUNNING ON SYSTEMS OTHER THAN MFG. QV STATiONS. THIS 
'ABLE DESELECTS THE OPTIONAL CACHE TESTS. 

4. ETABLE *D' IS USED BY MANUFACTURING TO RUN AN 11/24 UNDER 
APT WITH UNI3US MEMORY AND NO MAIN MEMORY, AND BECAUSE OF 
NO CACHE IN AN 11/24, DESELECTS THE OPTIONAL CACHE TESTS. 

1ST PASS LONGEST ADDITIONAL 

R ‘N TIME TEST TIME RUN TIME 

10 5 0 

E TABLES 




A 

B 

c 

D 

E-MODE/S-MODE 


000/000 

240/001 

240/001 

240/001 

(SENVM/SENV) 






SWITCH REGISTER 1 


000100 

000100 

000000 

004000 

(SSWREG) 






SWITCH REGISTER 2 


000000 

000000 

000000 

000000 

CPU TYPE/OPTIONS 


00/0000 

00/0000 

00/0000 

00/0000 

MEMORY MAP CODE 1 


000/0000 

000/0000 

000/0000 

000/0000 

MEMORY MAP CODE 2 


000/0000 

000/0000 

000/0000 

000/0000 

MEMORY MAP CODE 3 


000/0000 

000/0000 

000/0000 

000/0000 

MEMORY MAP CODE 4 


000/0000 

000/0000 

000/0000 

000/0000 

BUS priority/interrupt 

1 

0000 

0000 

0000 

0000 

BUS PRIORITY/INTERRUPT 

2 

0000 

0000 

0000 

0000 

BASE ADDRESS CODE 


000000 

000000 

000000 

000000 

DEVICE MAP CODE 


000000 

000000 

000000 

000000 

CTLR. SPECIFIC WORD 1 


000000 

000000 

000000 

000000 

CTLR. SPECIFIC WORD 2 


000000 

000000 

000000 

000000 

DEVICE DESCRIPTOR WORD 

0 

177777 

177777 

177777 

177777 

DEVICE DESCRIPTOR WORD 

1 

177777 

177777 

177777 

177777 

DEVICE DESCRIPTOR WORD 

2 

000000 

000000 

000000 

000000 



THROUGH 




DEVICE DESCRIPTOR WORD 

15 

000000 

000000 

000000 

000000 
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6. ERRORS 

6.1 ERROR HALTS AND DESCRIPTION 

WHEN AN ERROR IS DETECTED AN 'ERROR* (EMT) 

INSTRUCTION IS EXECUTED AND THE 'ERROR HANDLER ROUTINE' 

CHECKS THE SWITCH REGISTER FOR MODE SELECTED. 

THE PROGRAM WILL: 

HALT ON ERROR IF SWT 5 = 1 

INHIBIT ERROR TYPE OUT IF SWl 3=1 
RING BELL ON ERROR IF SWl 0=1 

LOOP ON ERROR IF SW9=1 

6.2 ERROR RECOVERY 

IF SW09=1 , THE PROGRAM WILL LOOP BACK TO 

THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 

EXECUTED. WITHOUT ALLOWING ANY OF THE CONDITIONS TO CHANGE. 

THIS WILL PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP. 

IF SW09=0, EACH ERROR WILL BE REPORTED AND 
LOGGED AND. AT THE END OF EACH TEST. A SUMMARY OF ALL ERRORS 
OCCURRING IN THAT TEST WILL BE PROVIDED. THE SUMMARY 
CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 
DATA THAT WAS WRONG. 

IF THE POWER MONITOR BIT ERROR IS CALLED, YOU MUST CORRECT THE POWER 
SUPPLY OR CPU ERROR REGISTER PROBLEM BEFORE YOU CAN RELY ON THE 
RESULTS OF THIS DIAGNOSTIC. THE ERROR CAN BE CALLED AT 1 OF 2 
PLACES - 1) IN THE SCOPE ROUTINE EXECUTED AT THE BEGINNING OF EACH 
TEST. AND 2 ) IN AN ERROR CALL IN CASE BIT BECOMES SET AFTER THE SCOPE. 
IF THE BIT IS CAUGHT IN THE ERROR ROUTINE, *TWO* ERRORS WILL CALL - 
1) POWER MONITOR BIT ERROR WILL CALL FIRST TO ALERT YOU TO THE 
POSSIBILITY THE PROBLEM COULD BE CAUSED BY THE OUT-OF-SPEC POWER 
SUPPLY, AND THEN THE ERROR THAT WAS TO CALL. 

6.3 SAMPLE ERROR TYPE OUTS 

SEE "SERRTB:" FOR SAMPLE ERROR TYPEOUTS. 
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6.3.1 MULTIPLE TYPE ERRORS: AN EXAMPLE: 

THE FOLLOWING REGISTERS TIMED OUT WHEN REFERENCED 
REG. ADR TESTNO ERRORPC 
170210 000001 015226 

170212 000001 015232 


TO 


170372 000001 015232 

170374 000001 015232 

170376 000001 015232 

SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 

REGADRS REGADRS „ 

"OR** "AND TERRORS TESTNO ERRORPC 
170376 170210 32 000001 010530 
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7. RESTRICTIONS 

7.1 STARTING RESTRICTIONS 
NONE 

7.2 OPERATING RESTRICTIONS 
NONE 
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364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 
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8. MISCELLANEOUS 

8.1 EXECUTION TIME 

THE RUN TIME FOR ANY PASS IS APPROXIMATEL Y 3 SECONDS. 

8.2 ADDRESS GENERATION IN THE PDP-11/44 

THE FOLLOWING IS AN EXAMPLE OF HOW A MEMORY ADDRESS 
IS GENERATED BY THE UNIBUS MAP. THIS ASSUMES THAT 
THE ADDRESS ORIGINATES IN THE CPU BUT THE PROCESS CAN 
APPLY TO ANY UNIBUS ADDRESS. STARTING AT LINE C2. 


A. 

VIRTUAL ADDRESS 






15 

14 

13 

12 

11 

10 

09 

08 

07 06 

05 

04 

03 02 

01 

00 

A1 . 

P.A.R. PAGE NUMBER (0- 

7) 





15 

14 

13 












A2. 

OFFSET (FROM VIRTUAL ADDRESS) 




5 



12 

11 

10 

09 

08 

07 06 

05 

04 

03 02 

01 

00 

B. 

P.A.R. [PAGE NO. J ♦ 15 

14 

13 

12 

11 

10 

09 08 

07 

06 

05 

04 

03 

02 

01 00 






C. 

PHYS ADDRS (A2+B) 21 

"io" 

77" 

lY 

17 

16 

15 

14 

13 

12 

11 

10 

09 

08 

07 06 

05 

04 

03 02 

01 

00 

Cl. 

1 7XXXXXX=> U.8.ADR. 21 

20 

19 

18 

















C2. 

MAPPING REG. NO. (0-36) 




17 

16 

15 

14 

13 












C3. 

OFFSET 









12 

11 

10 09 08 07 06 05 

04 

03 02 

01 

00 

D. 

MAP REG. [NO. J ♦ 21 

20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 09 08 07 06 

05 

04 

03 02 

01 


E. 

t>HYS ADDR (C3+D) 21 

"20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 09 08 

07 06 05 

04 

03 02 

01 

00 


DESCRIPTION OF LINES: 

A: VIRTUAL ADDRESS (16 BITS) 

A1 : UPPER 3 BITS OF VIRTUAL ADDRESS. USED TO 
SELECT A PAGE ADDRESS REGISTER (PAR) 

A2: LOWER 13 BITS OF VIRTUAL ADDRESS. ADDED TO 
SELECTED PAR 

B: PAGE ADDRESS REGISTER (16 BITS). IN ADDITION PROCESS THIS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 

C: PHYSICAL ADDRESS CREATED BY MEMORY MANAGEMENT, (22 BITS) 

Cl: IF UPPER 4 BITS ARE ALL ONES THEN BITS <17:00> GO OUT ON UNIBUS 
C2: IF MAP RELOCATION IS ENABLED THEN BITS <17: 13> SELECT ONE 
OF THE 36 (OCTAL) MAP REGISTERS. 

C3: LOWER 13 BITS OF UNIBUS ADDRESS. ADDED TO SELECTED MAP REGISTER 
D: MAP REGISTER (22 BITS). ADDED TO BITS <12:00> OF UNIBUS ADDRESS 
E: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE. 
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417 

418 

419 

420 

421 


9. PROGRAM DESCRIPTION 

THE ASSEMBLED LISTING, CKKUAE.SEQ, HAS 
EACH OF THE TESTS. THE PARAGRAPH WILL 
RUN CONDITIONALLY ON THE STATUS ON THE 


A PARAGRAPH DESCRIBING 
INDICATE IF THE TEST IS 
CACHE CONTROL REGISTER. i 
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TITLE CKKUAEO 11/24/44 UBI MAP 
‘COPYRIGHT (C) JANUARY 1982 
‘DIGITAL EQUIPMENT CORP. 

‘MAYNARD. MASS. 01754 
* 

‘PROGRAM BY DAN P. MILLEVILLE 
* 

‘THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
‘PACKAGE (MAINDEC-1 1-DZQAC-C5) , JAN. 1981. 

* 

SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 

USE 

15 

HALT ON ERROR 

14 

LOOP ON TEST 

13 

INHIBIT ERROR TYPEOUTS 

12 

INHIBIT TRACE TRAP 

11 

INHIBIT TRACE TRAP 

10 

BELL ON ERROR 

9 

LOOP ON ERROR 

8 

LOOP ON TEST IN SWR<4:0> 

7 

INHIBIT MULTIPLE ERROR TYPEOUTS 

6 

SELECT CACHE-CIS TESTS 

5 

SELECT MEMORY ON UNIBUS TEST 
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SEC • \ 

BASIC DEFINITIONS 





1489 


. SBTTL 

BASIC DEFINITIONS 




; ‘INITIAL ADDRESS OF 

THE STACK POINTER *♦* 1100 ♦♦* 



001100 

STACK= 

1100 

;; FIRST ADDRESS OF THE STACK 



001100 

KERSTK= 

STACK 

; .-KERNEL STACK 



000700 

SUPSTK= 

STACK-200 

;; SUPERVISOR STACK 



000600 

USESTK= 

STACK-300 

; ;USER STACK 



104000 


ERROR=EMT 

• 



000004 


SCOPE=IOT 

# 



1 77776 

PS= 

177776 

;; PROCESSOR STATUS WORD 



177776 


PSW=PS 




177774 

STKLMT= 

177774 

; ; STACK LIMIT REGISTER 



177772 

PIRQ= 

177772 

; .-PROGRAM INTERRUPT REQUEST REGISTER 



177570 

DSWR= 

177570 

; .-HARDWARE SWITCH REGISTER 



177570 

DDISP= 

177570 

;; HARDWARE DISPLAY REGISTER 



177546 

LKS= 

177546 

; ; LINE CLOCK (KW11-L) STATUS REGISTER 




.•♦MISCELLANEOUS DEFINITIONS 



000011 

HT= 

11 

; ; CODE FOR HORIZONTAL TAB 



000012 

LF = 

12 

; ; CODE LINE FEED 



00001 5 

CR= 

15 

.-.-CODE CARRIAGE RETURN 



000200 

CRLF = 

200 

.-.-CODE FOR CARRIAGE RETURN-LINE FEED 




.•♦GENERAL PURPOSE REGISTER DEFINITIONS 



000000 

R0= 

XO 

;; GENERAL REGISTER 



000001 

R1 = 

:i 

;; GENERAL REGISTER 



000002 

R2= 

Z2 

;; GENERAL REGISTER 



000003 

R3= 

X3 

;; GENERAL REGISTER 



000004 

R4= 

Z4 

;; GENERAL REGISTER 



000005 

R5= 

X5 

;; GENERAL REGISTER 



000006 

R6= 

Z6 

.-.-GENERAL REGISTER 



000007 

R7= 

X7 

;; GENERAL REGISTER 



000000 


R10=R0 




000001 


R11=R1 




000002 


R12=R2 




000003 


R13=R3 




000004 


R14=R4 




000005 


R15=R5 




000006 

SP= 

Z6 

;; STACK POINTER 



000006 


KSP=SP 




000006 


SSP=SP 




000006 


USP=SP 




000007 

PC= 

X7 

;; PROGRAM COUNTER 




.-♦PRIORITY LEVEL DEFINITIONS 



000000 

PRO= 

0 

; ; PRIORITY LEVEL 0 



000040 

PR1 = 

40 

; .-PRIORITY LEVEL 1 



000100 

PR 2= 

100 

; PRIORITY LEVEL 2 



000140 

PR3= 

140 

;; PRIORITY LEVEL 3 



000200 

PR4= 

200 

; .PRIORITY LEVEL 4 



000240 

PR5= 

240 

;; PRIORITY LEVEL 5 



000300 

PR6= 

300 

;; PRIORITY LEVEL 6 



000340 

PR 7= 

340 

; .-PRIORITY LEVEL 7 




.•♦"SWITCH REGISTER" 

SWITCH DEFINITIONS 



100000 

SW15= 

100000 




040000 

SW14= 

40000 




020000 

SW13= 

20000 




010000 

SW12= 

10000 




004000 

SW1 1 = 

4000 




002000 

SW10= 

2000 




001000 

SW09= 

1000 





CKKUAEO 11/24/44 U6I 
BASIC DEFINITIONS 
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000400 

SW08= 

400 

000200 

SU07= 

200 

000100 

SU06= 

100 

000040 

SU05= 

40 

000020 

SW04= 

20 

000010 

SW03= 

10 

000004 

SU02= 

4 

000002 

SW01 = 

2 

000001 

SW00= 

1 

001000 


SW9=SU09 

000400 


SU8=SW08 

000200 


SW7=SW07 

000100 


SW6=SW06 

000040 


SW5=SW05 

000020 


SW4=SW04 

000010 


SW3=SW03 

000004 


SW2=SW02 

000002 


SU1=SW01 

000001 


swo=swoo 


; *DATA BIT DEFINIT. 

100000 

BI T 1 5= 

100000 

040000 

BI T 1 4= 

40000 

020000 

BI T 1 3= 

20000 

010000 

BI T 1 2= 

10000 

004000 

BI T1 1 = 

4000 

002000 

8IT10= 

2000 

001000 

BIT09= 

1000 

000400 

BIT08= 

400 

000200 

BIT07= 

200 

000100 

BIT06= 

100 

000040 

BIT05= 

40 

000020 

BIT04= 

20 

000010 

BIT03= 

10 

000004 

BIT02= 

4 

000002 

BIT01= 

2 

000001 

BITOO= 

1 

001000 


BI T9=8I T09 

000400 


BIT8=8I T08 

000200 


BIT7=8IT07 

000100 


BIT6=BIT06 

000040 


BIT5=BIT05 

000020 


BIT4=8IT04 

000010 


8IT3=BIT03 

000004 


BIT2=BIT02 

000002 


BIT1=BIT01 

000001 


BITO=BITOO 


; *BAS I C 

,, CPU ,, TRAP 

000004 

ERRVEC= 

4 

000010 

RESVEC= 

10 

000014 

TBITVEC- 

=14 

000014 

TRTVEC= 

14 

000014 

8PTVEC= 

14 

000020 

IOTVEC= 

20 

000024 

PWRVEC= 

24 

000030 

EMTVEC= 

30 

000034 

TRAPVEC 

=34 

000060 

TKVEC= 

60 


TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (IOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 

•'TRAP*' TRAP 

TTY KEYBOARD VECTOR 


SEQUENCE 



CKKUAEO 11/24/44 UB1 MAP 
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000064 

000100 

000114 

000240 

000250 

177740 

177742 

177744 

177746 

177750 

177752 

177760 

177762 

1 77764 
1 77766 


177572 

177574 

177576 

172516 

177572 

177574 

177576 

172516 

1 77600 
1 77602 
1 77604 
1 77606 
177610 
177612 
177614 
177616 

177620 
177622 
177624 
177626 
177630 
177632 
177634 
1 77636 

177640 
1 77642 
1 77644 
177646 
177650 
177652 
177654 
177656 
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TPVEC= 64 
LKVEC= 100 
CACHVEC=1 14 
PIRQVEC=240 
MMVEC= 250 
.SBTTL 
LOADRS 
HJADRS 
MEMERR 
CONTRL 
MAINT 
HITMIS 
.S8TTL 
SIZELO 


SIZEHI = 177762 


SYSTID 

CPUERR 

. S8TTL 


TTY PRINTER VECTOR 
LINE CLOCK (KW11-L) VECTER 
CACHE ERROR INTERRUPT VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 
MEMORY MANAGEMENT VECTOR 
DEFINITIONS 

LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
CACHE ERROR REGISTER 
MEMORY CONTROL REGISTER 
MEMORY MAINTENENCE REGISTER 
HIT MISS REGISTER ”1" IMPLIES HIT IN CACHE 
INITIONS 

MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
TO GET TO THE LAST 32 WORDS OF MEMORY 
HIGH SIZE REGISTER. RESERVED FOR FUTURE USE 
CURRENTLY ALL ZERO 
SYSTEM ID REGISTER 

CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
THE TRAP TO ERRVEC (000004) 

MEMORY MANAGEMENT DEFINITIONS 


CACHE REGISTER 
177740 
177742 
177744 
177746 
177750 
177752 

CPU REGISTER DEF 
177760 


177764 

177766 


; *MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 

MMRO= 177572 

MMR1= 177574 

MMR2= 177576 

MMR3= 172516 

SRO=MMRO 
SR 1 =MMR 1 
SR2=MMR2 
SR3=MMR3 

; *USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPDR4= 177610 
UIPDR5= 177612 
UIPDR6= 177614 
UIPDR7= 177616 

; *USER "V" PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 
UDPDR1= 177622 
UDPDR2= 17762a 
UDPDR3= 177626 
UDPDR4= 177630 
UDPDR5= 177632 
UDPDR6= 177634 
UDPDR7- 
;*USER 

UlPARO= 177640 
UIPAR1= 177642 
UIPAR2= 177644 
UIPAR3= 177646 
UIPAR4= 177650 
UIPAR5= 177652 
UIPAR6= 177654 
UIPAR7= 177656 


177636 

PAGE ADDRESS REGISTERS 


T 


SEQUENCE 
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SEQUENCE 19 

MEMORY MANAGEMENT DEFINITIONS 

1 77660 

; ‘USER ’’D” PAGE ADDRESS REGISTERS 

UDPARO= 177660 


1 77662 

UDPARl = 177662 


1 77664 

UD°AR2= 177664 


1 77666 

UDPAR3= 177666 


177670 

UDPAR4= 177670 


177672 

UDPAR5= 177672 


1 77674 

UDPAR6= 177674 


1 77676 

UDPAR7= 177676 


172200 

; ‘SUPERVISOR “I" PAGE DESCRIPTOR REGISTERS 

SIPDRO= 172200 


172202 

S I PDR 1 = 172202 


172204 

SIPDR2= 172204 


172206 

SIPDR3= 172206 


172210 

SIPDR4= 172210 


172212 

SIPDR5= 172212 


172214 

SIPDR6= 172214 


172216 

SIPDR7= 172216 

.•‘SUPERVISOR ••D” PAGE DESCRIPTOR REGISTERS 

SDPDR0= 172220 


172220 


172222 

SDPDR1 = 172222 


172224 

SDPDR2= 172224 


1 72226 

SDPDR3= 172226 


172230 

SDPDR4= 172230 


172232 

SDPDR5= 172232 


1 72234 

SDPDR6= 172234 


172236 

SDPDR7= 172236 

.•‘SUPERVISOR "I'* PAGE ADDRESS REGISTERS 

SIPAR0= 172240 


172240 


172242 

SIPAR1= 172242 


172244 

SIPAR2= 172244 


172246 

$IPAR3= 172246 


172250 

SIPAR4= 172250 


172252 

SIPAR5= 172252 


172254 

SIPAR6= 172254 


172256 

SI PAR 7 = 172256 

.•‘SUPERVISOR "D“ PAGE ADDRESS REGISTERS 

SDPAR0= 172260 


172260 


1 72262 

SDPAR1= 172262 


1 72264 

SDPAR2= 172264 


172266 

SDPAR3= 172266 


1 72270 

SDPAR4= 172270 


172272 

SDPAR5= 172272 


1 72274 

SDPAR6= 172274 


172276 

SDPAR7= 172276 


1 72300 

; ‘KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDR0= 172300 


172302 

KIPDR1= 172302 


1 72304 

KIPDR2= 172304 


172306 

KIPDR3= 172306 


172310 

KIPDR4= 172310 


172312 

KIPDR5= 172312 


172314 

KIPDR6= 172314 


172316 

KIPDR7= 172316 

; ‘KERNEL “D** PAGE DESCRIPTOR REGISTERS 

KDPDR0= 172320 


1 72320 


172322 

KDPDR1= 172322 
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SEQUENCE 


172324 
172326 
172330 
172332 
1 72334 
172336 

172340 

172342 

172344 

172346 

172350 

172352 

172354 

172356 

172360 
172362 
172364 
1 72366 
172370 
172372 
172374 
172376 


170200 
170202 
1 70204 
1 70206 
170210 
170212 
170214 
170216 
170220 
170222 
1 70224 
170226 
170230 
170232 
170234 
170236 
1 70240 
170242 
1 70244 
170246 
170250 
170252 
170254 
170256 
1 70260 
170262 
1 70264 
1 70266 
170270 
170272 


KDPDR2= 172324 
KDPDR3= 172326 
KDPDR4= 172330 
KD D DR5= 172332 
KDPDR6= 172334 
KDPDR7= 172336 

.-♦KERNEL "I” PAGE ADDRESS REGISTERS 

KIPARO= 172340 

K I PAR 1 = 172342 

KIPAR2= 172344 

KIPAR3= 172346 

KIPAR4= 172350 

KIPAR5= 172352 

KIPAR6= 172354 

K JPAR7= 172356 

.-♦KERNEL ••D" PAGE ADDRESS REGISTERS 

KDPARO= 172360 

KDPAR1= 172362 

KDPAR2= 172364 

KDPAR3= 172366 

KDPAR4= 172370 

KDPAR5= 172372 

KDPAR6= 172374 

KDPA R7= 172376 

. SBTTL UNIBUS MAP REGISTER DEFINITIONS 

.-♦THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED 'MAPLXX* 

.-♦THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ’MAPHXX’ 

MAPLOO = 170200 

MAPHOO = 170202 

MAPL01 = 170204 

MAPH01 = 170206 

MAPL02 = 170210 

MAPH02 = 170212 

MAPL03 = 170214 

MAPH03 = 170216 

MAPL04 = 170220 

MAPH04 = 170222 

MAPL05 = 170224 

MAPH05 = 170226 

MAPL06 = 170230 

MAPH06 = 170232 

MAPL07 = 170234 

MAPH07 = 170236 

MAPL10 = 170240 

MAPH10 = 170242 

MAPL11 = 170244 

MAPH11 = 170246 

MAPL12 = 170250 

MAPH12 = 170252 

MAPL13 = 170254 

MAPHI3 = 170256 

MAPL14 = 170260 

MAPH14 = 170262 

MAPL15 = 170264 

MAPH15 = 170266 

MAPL16 = 170270 

MAPH16 - 170272 


L 
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UNIBUS MAP REGISTER DEFINITIONS 


170274 

MAPL17 

= 170274 

170276 

MAPH17 

= 170276 

170300 

MAPL20 

= 170300 

170302 

MAPH20 

= 170302 

170304 

MAPL21 

= 170304 

170306 

MAPH21 

= 170306 

170310 

MAPL22 

= 170310 

170312 

MAPH22 

= 170312 

170314 

MAPL23 

= 170314 

170316 

MAPH23 

= 170316 

170320 

MAPL24 

= 170320 

170320 

MAPH24 

= 170320 

170324 

MAPL25 

= 170324 

170326 

MAPH25 

- 170326 

170330 

MAPL26 

= 170330 

170332 

MAPH26 

= 170332 

170334 

MAPL27 

= 170334 

170336 

MAPH27 

= 170336 

170340 

MAPL30 

= 170340 

170342 

MAPH30 

= 170342 

170344 

MAPL31 

= 170344 

170346 

MAPH31 

= 170346 

170350 

MAPL32 

= 170350 

170352 

MAPH32 

= 170352 

170354 

MAPL33 

= 170354 

170356 

MAPH33 

= 170356 

170360 

MAPL34 

= 170360 

170362 

MAPH34 

= 170362 

1 70364 

MAPL35 

= 170364 

1 70366 

MAPH35 

= 170366 

170370 

MAPL36 

= 170370 

170372 

MAPH36 

= 170372 

170374 

MAPL37 

= 170374 

170376 

MAPH37 

= 170376 

170200 


MAPL0=MAPL00 

170202 


MAPH0=MAPH00 

1 70204 


MAPI 1=MAPL01 

1 70206 


MAPHl=MAPH01 

170210 


MAPL2=MAPL02 

170212 


MAPH2=MAPH02 

170214 


MAPL3=MAPL03 

170216 


MAPH3=MAPH03 

170220 


MAPL4=MAPL04 

170222 


MAPH4=MAPH04 

170224 


MAPl5=MAPl05 

170226 


MAPH5=MAPH05 

170230 


MAPL6=MAPL06 

170232 


MAPH6=MAPH06 

170234 


MAPL7=MAPL07 

170236 


MAPH7=MAPH07 
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TRAP CATCHER 


1492 

OOOOOO 


000174 
000174 OOOOOO 
000176 OOOOOO 

000200 000137 010000 


. S8TTL TRAP CATCHER 

• *All UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2, HALT” 
••SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
••LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .WORD 0 
SWREG: .WORD 0 

. S8TTL STARTING ADDRESS(ES) 

JMP SASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 


SEQUENCE 


22 


CKKUAEO 11/24/44 UBI MAP 
ACT 11 HOOKS 


SEQUENCE 


1494 
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. SBTTl ACT11 HOOKS 
• ************************ 

•HOOKS REQUIRED BY ACT11 



000204 

SSVPC=. 


000046 

.=46 

000046 

022024 

SENDAD 


000052 

.=52 

090052 

000000 

.WORD 


000204 

.=SSVPC 


*************************************** 

.-SAVE PC 

; ; 1 )SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 
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COMMON TAGS 

1496 



.SBTTl 

n 

O 

o 

2 

TAGS 





;*THIS 

TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 




; *USED 

IN THE PROGRAM. 



001100 



.=1100 



OOIIOO 



SCMTAG 



.•START OF COMMON TAGS 




;$PASS 

: .WORD 

0 

.•CONTAINS PASS COUNT ;DPM001 

001100 

000 


STSTNM 

: .BYTE 

0 ; 

.•CONTAINS THE TEST NUMBER 

001101 

000 


SERFLG 

: .BYTE 

0 

.CONTAINS ERROR FLAG 

001102 

000000 


$ICNT: 

.WORD 

0 

.•CONTAINS SUBTEST ITERATION COUNT 

001104 

000000 


SLPADR 

: .WORD 

0 

.•CONTAINS SCOPE LOOP ADDRESS 

001106 

000000 


SLPERR 

: .WORD 

0 

.■CONTAINS SCOPE RETURN FOR ERRORS 

001110 

000000 


SERTTL 

: .WORD 

0 

.•CONTAINS TOTAL ERRORS DETECTED 

661112 

000 


SITEMB 

: .BYTE 

0 

.■CONTAINS ITEM CONTROL BYTE 

001113 

001 


SERMAX 

: .BYTE 

1 

.•CONTAINS MAX. ERRORS PER TEST 

001114 

000000 


JERRPC 

: .WORD 

0 

.•CONTAINS PC OF LAST ERROR INSTRUCTION 

001116 

000000 


SGDADR 

: .WORD 

0 

.•CONTAINS ADDRESS OF ’GOOD* DATA 

001120 

000000 


SBDADR 

: .WORD 

0 

; CONTAINS ADDRESS OF 'BAD* DATA 

001122 

000000 


SGDDAT 

: .WORD 

0 

.•CONTAINS 'GOOD* DATA 

001124 

000000 


SBDDAT 

: .WORD 

0 

; CONTAINS 'BAD' DATA 

001126 

000000 



.WORD 

0 

.•RESERVED— NOT TO BE USED 

001130 

000000 



.WORD 

0 


001132 

000 


SAUTOB 

: .BYTE 

0 

■.•AUTOMATIC MODE INDICATOR 

001133 

000 


SINTAG 

: .BYTE 

0 

•.■INTERRUPT MODE INDICATOR 

001134 

000000 



.WORD 

0 


001136 

177570 


SUR: 

.WORD 

DSWR 

.•ADDRESS OF SWITCH REGISTER 

001140 

177570 


DISPLAY: .WORD 

DDISP 

.•ADDRESS OF DISPLAY REGISTER 

001142 

177560 


STKS : 

177560 


; TTY KBD STATUS 

001144 

177562 


STKB: 

177562 


; TTY KBD BUFFER 

001146 

177564 


STPS : 

177564 


;TTY PRINTER STATUS REG. ADDRESS 

001150 

177566 


STPB : 

177566 


; TTY PRINTER BUFFER REG. ADDRESS 

001152 

000 


SNULL : 

.BYTE 

0 

.•CONTAINS NULL CHARACTER FOR FILLS 

001153 

002 


SPILLS 

: .BYTE 

2 

; CONTAINS H OF FILLER CHARACTERS REQUIRED 

001154 

012 


SFJLLC 

: .BYTE 

12 

.•INSERT FILL CHARS. AFTER A "LINE FEED" 

001155 

000 


STPFLG 

: .BYTE 

0 

.•’TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

001156 

000000 


JREGAD 

: .WORD 

0 

.•CONTAINS THE ADDRESS FROM 







.•WHICH (SREGO) WAS OBTAINED 


000006 



.REPT 

SCM3 


001160 

000000 


SREGO: 

.WORD 

0 

;; CONTAINS ( (SREGAD)*0) 

001162 

000000 


$REG1 : 

.WORD 

0 

;; CONTAINS ( (SREGAD)*2) 

001164 

000000 


SREG2: 

.WORD 

0 

;; CONTAINS ( ( JREGADJ+4) 

001166 

000000 


$REG3: 

.WORD 

0 

.•CONTAINS ((SREGAD)*6) 

001170 

000000 


JREG4: 

.WORD 

0 

; .-CONTAINS ( (SREGAD)*10) 

001172 

000000 


SREG5: 

.WORD 

0 

;; CONTAINS USREGAD>*12> 


000007 


.REPT 

7 



001 1 74 

000000 


$TMPO: 

.WORD 

0 

.•USER DEFINED 

001 1 76 

000000 


STMP1 : 

.WORD 

0 

.•USER DEFINED 

001200 

000000 


STMP2: 

.WORD 

0 

.•USER DEFINED 

001202 

000000 


STMP3: 

.WORD 

0 

.•USER DEFINED 

001204 

000000 


STMP4 : 

.WORD 

0 

.•USER DEFINED 

001206 

000000 


STMP5: 

.WORD 

0 

.•USER DEFINED 

001210 

000000 


STMP6: 

.WORD 

0 

.•USER DEFINED 

001212 

000000 


STIMES 

: 0 


;MAX. NUMBER OF ITERATIONS 

001214 

000000 


SE SCAPE :0 


.•ESCAPE ON ERROR ADDRESS 

001216 

207 

377 

377 SBELL: 

.ASCIZ 

<207><377><377> 

.•CODE FOR BELL 


SEQUENCE 24 
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001222 

077 

SQUES: 

.ASCII 

/?/ 


.•QUESTION MARK 

001223 

015 

SCRLF: 

.ASCII 

<1 5> 

0 

.■CARRIAGE RETURN 

001224 

012 000 

SLF: .ASCI 2 <12>^^ ***„*,; 

.-LINE FEED 

001226 

000000 

PADRSL 

: .WORD 

0 


HOLDS THE LOWER 16 BITS OF A 22 BIT ADDRESS 
GENERATED FOR TYPE OUT. 

001230 

000000 

PADRSH: .WORD 

0 


HOLDS THE UPPER 6 BITS OF A 22 BIT ADDRESS 
GENERATED FOR TYPE OUT. 

001232 

000000 000077 

ADRAND 

: .WORD 

0.77 


LOGICAL AND OF FAILING ADDRESSES 

001236 

000000 000077 

ADDROR: .WORD 

0.77 


LOGICAL OR OF FAILING ADDRESSES 

001242 

000000 000077 

DAT AND 

: .WORD 

0.77 


LOGICAL AND OF BAD DATA 

001246 

000000 000077 

DATAOR: .WORD 

0.77 


LOGICAL OR OF BAD DATA 

001252 

000000 

PATAND 

: .WORD 

0 


LOGICAL AND OF PATTERN LOADED 

001254 

000000 

PATTOR 

: .WORD 

C 


LOGICAL OR OF PATTERN LOADED 

001256 

000000 

LOWEST 

: .WORD 

0 


HOLDS NUMBER TO PUT IK PAR TO CAUSE THE 

LOWEST USABLE MAP REGISTER TO RESPOND 

001260 

000000 

HIGEST 

: .WORD 

0 


HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 

HIGHEST USABLE MAP REGISTER TO RESPOND 

001262 

000000 

U8ML0W: .WORD 

0 


HOLDS NUMBER TO PUT IN PAR TO SIGNAL 1ST 
ADDRESS OF UNIBUS MEMORY 

001264 

000000 

U8MHI 

.WORD 

0 


HOLDS NUMBER TO PUT IN PAR TO SIGNAL LAST 

BLOCK OF 4K OF UNIBUS MEMORY 

001266 

000000 

MMRLOW: .WORD 

0 


HOLDS LOWEST MAP REGISTER NUMBER FROM ‘LOWEST: 

001270 

000000 

MMRHI 

.WORD 

0 


HOLDS HIGHEST MAP REGISTER NUMBER FROM ‘HIGEST 

001272 

000000 

U8RL0W: .WORD 

0 


HOLDS LOWEST MAP REGISTER NUMBER FROM ‘UBMLOW: 

001274 

000000 

U8RHI 

.WORD 

0 


HOLDS HIGHEST MAP REGISTER NUMBER FROM ‘UBMHI : 

001276 

000000 

BUPWIN: .WORD 

0 


HOLDS LOWEST USEABLE PAR OF UPPER WINDOW 

001300 

000000 

LREGL. 

.WORD 

0 


HOLDS I/O PAGE ADDR OF LOW 16 BITS OF 

THE LOWEST USABLE MAP REGISTER 

001302 

000000 

LREGU. 

.WORD 

0 


HOLDS I/O PAGE ADDR OF HIGH 6 BITS OF 

OF THE LOWEST USABLE MAP REGISTER 

001 304 

000000 

LMAH: 

.WORD 

0 


LOCATION TO HOLD L«A HIGH REGISTER CONTENTS 

001306 

000000 

LMAL : 

.WORD 

0 


LOCATION TO HOLD LMA LOW REGISTER CONTENTS 

001310 

000000 

UBM24L: .WORD 

0 


LOCATION USED TO HOLD LMA LOW EXPECTED VALUE 

001312 

000000 

U8M24U: .WORD 

0 


LOCATION USED TO HOLD LMA HIGH EXPECTED VALUE 

001314 

000000 

UBM24P: .WORD 

0 


LOCATION USED TO HOLD LMALOW PRELOAD VALUE 

001316 

000000 

NUMOFK: /WORD 

0 


LOCATION TO HOLD NUMBER OF K OF UB MEMORY 

001320 

000000 

ERRCNT: .WORD 

0 


MULTIPLE ERROR ERROR COUNTER 

001322 

000000 

CNTR: 

.WORD 

0 


AUXILIARY COUNTER 

001324 

000000 

FLAG: 

.WORD 

0 


FLAG TO INDICATE TO LAST PROGRAM PASS N 

001 326 

000000 

CPUEXP: .WORD 

0 


HOLDS THE EXPECTED CPU ERROR CODE 

001330 

000000 

PCPUER: .WORD 

0 


HOLDS RECEIVED CPU ERROR CONDITION 

001332 

000000 

PPARER: .WORD 

0 


HOLDS RECEIVED PARITY ERROR CONDITION 

001334 

000000 

PCONTR: .WORD 

0 


HOLDS CONTENTS OF CONTROL REGISTER 

001336 

000000 

PMAINT : .WORD 

0 


HOLDS CONTENTS OF MAINTENENCE REGISTER 

001340 

000000 

BADPC 

.WORD 

c 


HOLDS PC OF INST THAT CAUSED TRAP 

001342 

000000 

OLDPC 

.WORD 

0 

9 

HOLDS THE RETURN ADDRESS AFTER A TRAP 

001344 

000000 

OLDPS 

.WORD 

0 


HOLDS THE OLD PROCESSOR STATUS 

001346 

000000 

OLDPSW: .WORD 

0 


HOLDS OLD PSW FOR TBITRESTORE 

001350 

000000 

PMMRO 

.WORD 

0 


HOLDS CONTENTS OF MMRO AFTER TRAP 

001352 

000000 

PMMR1 

.WORD 

0 


HOLDS CONTENTS OF MMR1 AFTER TRAP 

001354 

000000 

PMMR2 

.WORD 

0 


HOLDS CONTENTS OF MMR2 AFTER TRAP 

001356 

000000 

RSIZE 

.WORD 

0 


WILL HOLD P.A.R. DATA FOR TOP OF MEMORY 

001360 

000000 

RETRY 

.WORD 

0 


RETRY FLAG IN CASE OF PARITY ABORTS 

001 362 

000000 

NXTTST: .WORD 

0 


LOCATION TO HOLD ESCAPE ADDRESS ON 

PARITY ERRORS. 

001364 

000200 

DATA: 

.WORD 

200 


PATTERN TO BE USED TO LOAD INTO MEMORY 


25 
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. S8TTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

; *THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
; ‘LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

; *NOTE 1 : IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


* EM 

* DH 

* DT 

* DF 



001366 


SERRTB: 



1497 



.-ITEM 

1 



1498 

001366 

024160 



.WORD 

EMI 

1499 

001370 

030121 



.WORD 

DH1 

1500 

001372 

032340 



.WORD 

DTI 

1501 

001374 

033641 



.WORD 

DF 1 

1502 







1503 



.-ITEM 

2 



1504 

001376 

024245 



.WORD 

EM 2 

1505 

001400 

030160 



.WORD 

DH2 

1506 

001402 

032352 



.WORD 

DT2 

1507 

001404 

033641 



.WORD 

DF 1 

1508 







1509 



.-ITEM 

3 


EM3 

1510 

001406 

024317 



.WORD 

1511 

001410 

030207 



.WORD 

DH3 

1512 







1513 

001412 

032362 



.WORD 

DT3 

1514 

001414 

0336<t1 



.WORD 

DF1 

1515 







1516 



.•ITEM 

4 



1517 

001416 

024425 



.WORD 

EM4 

1518 

001420 

030306 



.WORD 

DH4 

1519 







1520 

001422 

032376 



.WORD 

DT4 

1521 

001424 

033646 



.WORD 

DF4 

1522 







1523 



.-ITEM 

5 



1524 

001426 

024505 



.WORD 

EM5 

1525 

001430 

030403 



.WORD 

DH5 

1526 







1527 

001432 

032412 



.WORD 

DT5 

1528 

001434 

033653 



.WORD 

DF 5 

1529 







1530 



.-ITEM 

6 



1531 

001436 

024600 



.WORD 

EM6 

1532 

001440 

030540 



.WORD 

DH6 

1533 







1534 

001442 

032430 



.WORD 

DT6 

1535 

001444 

033661 



.WORD 

DF6 


POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 


NOT THE CORRECT CPU TRAP CONDITION THROUGH ERRVEC (#004) 
RECEIVD EXPECTD TESTNO PC AT ABORT 
PCPUER.CPUEXP.STESTN.BADPC ,0 
0 . 0 , 0 , 0 


UNEXPECTED CPU TRAP THROUGH ERRVEC (#004) 
RECEIVD TESTNO PC AT ABORT 
PCPUER.STESTN.BADPC.O 
0, 0. 0 


MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS 
STATUS AUTOI/D VJRTADR 

REGISTR REGISTR REGISTR TESTNO PC AT ABORT 
PMMR0.PMMR1 ,PMMR2.JTESTN.8ADPC,0 
0 , 0 . 0 . 0 , 0 


SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
REGADRS REGADRS 

‘•OR** “AND'* #ERRORS TESTNO ERR PC 
ADDROR.ADRAND.ERRCNT,$TESTN. SERRPC, 0 
2 , 2 , 1 . 0 . 0 


SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
REGLOAD REGLOAD REGDUAL REGDUAL 

■•OR" ‘'AND" "OR" "AND" fERRORS TESTNO 

ADDROR . ADRAND , DATAOR , DATAND , ERRCNT . STE STN , 0 

2 , 2 . 2 . 2 . 1 , 0 


SUMMARY OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS 
MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD 

'•OR" "AND" "OR" "AND" "OR" "AND" #ERRORS TESTNO 

ADDROR. ADRAND, PATTOR,PATAND. DATAOR, DATAND. ERRCNT, $TESTN,0 

2 , 2 . 0 . 0 . 0 , 0 , 1 . 0 
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ERROR POINTER 

1536 

1537 001446 

TABLE 

024702 

.-ITEM 

7 

.WORD 

EM7 

SUMMARY OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS 

1538 00K50 

030540 


.WORD 

DH6 

MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD 

••OR" "AND” "OR" "AND" **D«" "AND" tERRORS TESTNO 

ADDROR. ADRAND. PAT TOR, PA TAND, DA TAOR.DAT AND, E RRCNT .STESTN.O 

2. 2. 0. 0. 0, 0. 1. 0 

1539 

1540 001452 

032430 


.WORD 

DT6 

1541 001454 

033661 


.WORD 

DF6 

1542 

1543 

1544 001456 

025003 

.-ITEM 

10 

.WORD 

EM10 

CAN'T GET TO MAIN MEMORY FROM UNIBbS WITH THE MAP OFF 

1545 

1546 001460 

030727 


.WORD 

DH10 

SO JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION 

TESTNO ERR PC 

1547 001462 

032452 


.WORD 

DTI 0 

STESTN.SERRPC.O 

1548 001464 

033641 


.WORD 

DF1 

0. 0 

1549 

1550 

1551 001466 

025155 

; I TEM 

11 

.WORD 

EM1 1 

SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH 

1552 001470 

030754 


.WORD 

DHl 1 

EXPECTD EXPECTD RECEIVD RECEIVD 
"OR" "AND" "OR" "AND" TERRORS TESTNO 

PATTOR.PATAND.DATAOR.DATAND.ERRCTN.STESTN.O 

1553 

1554 001472 

032462 


.WORD 

DT1 1 

1555 001474 

033671 


.WORD 

DF 1 1 

0, 0, 0, 0. 1, 0 

1556 

1557 

1558 001476 

025247 

; I TEM 

12 

.WORD 

EMI 2 

UNIBUS MAP IS RELOCATING WHEN NOT ENABLED 

1559 001500 

030727 


.WORD 

OHIO 

TESTNO ERR PC 

1560 001502 

032452 


.WORD 

DT10 

STESTN.SERRPC.O 

1561 001504 

033641 


.WORD 

DF1 

0. 0 

1562 

1563 

1564 001506 

025321 

.-ITEM 

13 

.WORD 

EMI 3 

CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 

1565 

1566 

1567 001510 

030727 


.WORD 

DH10 

ADDRESS BIT14 IS STUCK LOW. MUST RESTART PROGRAM 

IF YOU DON'T LOOP ON THIS PROBLEM. 

TESTNO ERR PC 

1568 001512 

032452 


.WORD 

DT10 

STESTN.SERRPC.O 

1569 001514 

033641 


.WORD 

DF 1 

0. 0 

1570 

1571 

1572 001516 

025525 

.-ITEM 

14 

.WORD 

EMI 4 

SUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 

1573 001520 

030754 


.WORD 

DHl 1 

EXPECTD EXPECTD RECEIVD RECEIVD 

"OR" "AND" 'W "AND" #ERRORS TESTNO 

ADDROR. ADRAND, DATAOR.DATAND.ERRCNT.STESTN.O 

1574 

1575 001522 

032500 


.WORD 

DT14 

1576 001524 

033677 


.WORD 

DF 1 4 

2. 2, 0, 0. 1, 0 

1577 

1578 

1579 001526 

025630 

; I TEM 

15 

.WORD 

EMI 5 

MAIN MEMORY TIME OUT OVER THE JNISUS DID NOT OCCUR PROPERLY. 

1580 001530 

031111 


.WORD 

DHl 5 

CONDI TN CONDI TN 

1581 

1582 001532 

032516 


.WORD 

DTI 5 

EXPECTD RECEIVD TESTNO ERR PC 

CPUEXP.PCPUER.STESTN.SERRPC.O 

1583 001534 

033641 


.WORD 

DF 1 

0, 0. 0, 0 

1584 

1585 

1586 001536 

025723 

; I TEM 

16 

.WORD 

EMI 6 

SUMMARY OF DUAL MAPPING ERRORS 

1587 001540 

030754 


.WORD 

DHl 1 

EXPECTD EXPECTD RECEIVD RECEIVD 

"OR" "AND" "OR" "AND" AERRORS TESTNO 

ADDROR, ADRAND. DATAOR.DATAND.SERRPC.STESTN.O 

2, 2, 2, 2, 1, 0 

1588 

1589 001542 

032500 


.WORD 

DTI 4 

1590 001544 

033653 


.WORD 

DF 5 



CKKUAEO 11/24/44 UBJ MAP 
ERROR POINTER TABLE 


MACRO Mill 3 11 -JAN-82 11:27 


1591 

1592 001546 026021 

1593 001550 030727 

1594 001552 032452 

1595 001554 033641 

1596 

1597 

1598 001556 026051 

1599 001560 030727 

1600 001562 032452 

1601 001564 033641 

1602 

1603 

1604 001566 026150 

1605 

1606 001570 030727 

1607 001572 032452 

1608 001574 033641 

1609 

1610 

1611 001576 026226 

1612 001600 030727 

1613 001602 032452 

1614 001604 033641 

1615 


1616 

1617 001606 

1618 001610 

1619 001612 

1620 001614 

1621 
1622 

1623 001616 

1624 001620 

1625 001622 

1626 001624 

1627 

1628 

1629 001626 

1630 001630 

1631 001632 

1632 001634 

1633 

1634 

1635 001636 

1636 001640 

1637 001642 

1638 001644 

1639 

1640 

1641 001646 

1642 001650 

1643 001652 

1644 001654 


026314 


031170 


032530 


033705 


026344 

031231 

032542 

033641 


026402 

031231 

032542 

033641 


026437 

031231 

032554 

033641 


026472 

031270 

032566 

033641 


.-ITEM 17 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 20 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 21 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 22 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 23 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 24 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 25 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 26 


.WORD 

.WORD 

.WORD 

.WORD 


.-ITEM 27 


.WORD 

.WORD 

.WORD 

.WORD 


SEQUENCE 28 


C 3 
PAGE 24 


NO UN I BUS MEMORY EXISTS 
TESTNO ERR PC 
STESTN.SERRPC.O 
0. 0 


INTERRUPT/ABORT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR 
TESTNO ERR PC 
STESTN.SERRPC.O 
0 . 0 


INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 
DATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 
TESTNO ERR PC 
STESTN.SERRPC.O 
0. 0 


; INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
, .-TESTNO ERR PC 
.•STESTN.SERRPC.O 
; 0. 0 


LMA NOT LOADED PROPERLY 
TESTNO ERR PC LMAEXP LMARCV 
STESTN.SERRPC.EADRES.EADRS2.0 
0 . 0 . 2 . 2 


LMA FORCE JUMPER BIT NOT ZERO 
TESTNO ERR PC LMAEXP LMARCV 
STESTN.SERRPC .SREG1 .LMAHI .0 
0 . 0 . 0 . 0 


LMA FORCE JUMPER BIT NOT SET 
TESTNO ERR PC LMAEXP LMARCV 
STESTN.SERRPC, SREG1 . LMAHI, 0 
0 , 0 , 0 . 0 


LMA CONTROL BITS INCORRECT 
TESTNO ERR PC LMAEXP LMARCV 
STESTN.SERRPC, STMP0.SREG2.0 
0 . 0 . 0 . 0 


FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULT 
TESTNO ERR PC LMARCV KIPAR4 
STESTN.SERRPC. STMP0.XIPAR4.0 
0 , 0 , 0 
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1645 

1646 001656 026572 

1647 001660 031327 

1648 001662 032600 

1649 001664 033641 


0 
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SEQUENCE 29 


.-ITEM 30 

.WORD 

.WORD 

.WORD 

.WORD 


EM30 
DH30 
DT30 
DF 1 


KIPAR5 NOT LOADED PROPERLY 
TESTNO ERR PC PR5EXP PR5RCV 
$TESTN,$ERRPC,$TMP5,KJPAR5,0 
0 . 0 . 0 . 0 
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1650 001666 

1651 

1652 

1653 

1654 

1655 001666 026625 

1656 001670 031366 

1657 001672 032612 

1658 001674 033711 

1659 

1660 

1661 001676 026701 

1662 001700 031415 

1663 

1664 001702 032622 

1665 001704 033661 

1666 

1667 

1668 001706 026774 

1669 001710 031524 

1670 001712 032636 

1671 001714 033711 

1672 

1673 

1674 001716 027055 

1675 001720 031605 

1676 001722 032654 

1677 001724 033717 

1678 

1679 

1680 001726 027124 

1681 001730 031656 

1682 

1683 001732 032670 

1684 001734 033677 

1685 

1686 

1687 001736 027206 

1688 001740 031743 

1689 001742 032702 

1690 001744 033711 

1691 

1692 

1693 001746 027237 

1694 001750 032013 

1695 001752 032716 

1696 001754 033711 

1697 

1698 

1699 001756 027346 

1700 001760 032054 

1701 001762 032730 

1702 001764 033724 
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ER200: 


.-ITEM 

201 



.WORD 

EM201 


.WORD 

DH201 


.WORD 

D T 201 


.WORD 

DF 201 

.-ITEM 

202 



.WORD 

EM202 


.WORD 

DH202 


.WORD 

DT202 


.WORD 

DF6 

.-ITEM 

203 



.WORD 

EM203 


.WORD 

DH203 


.WORD 

DT203 


.WORD 

DF 201 

.-ITEM 

204 



.WORD 

EM204 


.WORD 

DH204 


.WORD 

DT204 


.WORD 

DF204 

.•item 

205 



.WORD 

EM205 


.WORD 

DH205 


.WORD 

DT205 


.WORD 

DF 1 4 

; r TEM 

206 



.WORD 

EM206 


.WORD 

DH206 


.WORD 

DT206 


.WORD 

DF201 

.-ITEM 

207 



.WORD 

EM207 


.WORD 

DH207 


.WORD 

DT207 


.WORD 

DF201 

.-ITEM 

210 



.WORD 

EM210 


.WORD 

DH210 


.WORD 

DT210 


.WORD 

DF210 


E 3 
26 


SEQUENCE 30 


THIS IS THE STARTING POINT FOR ERROR MESSAGES 
201 THROJGH 377. THEY ARE USED FOR MULTIPLE 
ERROR MESSAGES. 


THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
REGADRS TESTNO ERR PC 
EADRES.STESTN, SERRPC ,0 
2 . 0 . 0 


THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP 
MAPREG MAPREG NON-ZER 

TESTING DUALED CONTNTS TESTNO ERR PC 

EADRES,EADRS2,STMP3,STESTN, SERRPC ,0 

2 . 2 , 0 . 0 . 0 


THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC 
E ADRS2 , $ TMPO , $RE G4 , SRE G3 . $ T E S TN , SERRPC , 0 
2 . 0 , 0 . 0 . 0 . 0 


UNIBUS DATA PATH COUNT PATTERN FAILURE 
EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC 
JTMPO, JTMP1 , SREG2, STESTN, SERRPC, 0 
0. 0. 3. 0, 0 


UNIBUS ADDRESSING ERRORS, MA ,J RELOCATION DISABLED 
ADDRESS ADDRESS 
EXPECTD RECEIVD TESTNO ERR PC 
E ADRES , EADRS2 . $TE STN . SERRPC . 0 
2 . 2 , 0 . 0 


DATA PATTERN NOT CORRECT 
ADDRESS EXPCTD RECVED TESTNO ERR PC 
EADRES,STMP4,$TMP5,$TESTN, SERRPC, 2 
2 , 0 . 0 . 0 , 0 


REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770 
ADDRUSED BITDIFF TESTNO ERR PC 
EADRES.SREGO. STESTN, SERRPC. 0 
2 . 0 . 6 . 0 


MAP REGISTER UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST 
TESTNO ERR PC MAPREGADR 
STESTN. SERRPC, EADRES.O 
0. 0. 2 
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1703 

1704 001766 027446 

1705 

1706 001770 032106 

1707 

1708 001772 032740 

1709 001774 033711 

1710 

1711 

1712 001776 027604 

1713 

1714 002000 032106 

1715 

1716 002002 032740 

1717 002004 033711 

1718 

1719 

1720 002006 027737 

1721 002010 032270 

1722 002012 032766 

1723 002014 033641 

1724 

1725 

1726 002016 030030 

1727 002020 032270 

1728 002022 032766 

1729 002024 033641 



.WORD 

EM211 


.WORD 

DH211 


.WORD 

.WORD 

DT211 
DF 201 

.-ITEM 

212 

.WORD 

EM212 


.WORD 

DH211 


.WORD 

.WORD 

DT211 
DF 201 

.-ITEM 

213 

.WORD 

.WORD 

.WORD 

.WORD 

EM213 
DH213 
DT213 
DF 1 

.-ITEM 

214 

.WORD 

.WORD 

.WORD 

.WORD 

EM214 
DH213 
DT213 
DF 1 


SEQUENCE 3 ' 


F 3 
PAGE 27 


RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION 
TEST BEING RUN OVER UNIBIJS 
CORRECT EXPECTD RECEIVD 

ADDRESS DATA FROM U6 TESTNO ERR PC 

EADRES,$REG3,SREG2,STESTN,$ERRPC,0 

2 . 0 . 0 , 0 . 0 


MAIN MEMORV TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERL Y . 
TEST BEING RUN OVER UNIBUS 
CONDI TN CONDI TN 

EXPECTD RECEIVD TESTNO ERR PC 

cpuexp.pcpuer.stestn.jerrpc.o 

0 , 0 , 0 . 0 


MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED 
TESTNO ERR PC REG NO DDWDAT DDWADR 
$TESTN,$ERRPC ,$TMP0,$TMP1 ,$REG5,0 
0 , 0 , 0 , 0 , 0 


MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED 
TESTNO ERR PC REG NO DDWDAT DDWADR 
STESTN.$ERRPC,$TMP0,$TMP1,$REG5.0 
0 . 0 , 0 . 0 . 0 



SEQUENCE 32 


G 3 
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SOFTWARE SWITCH REGISTER LOCATION 


1730 

1731 002026 

1732 000176 

1733 000176 000000 

1734 002026 


.SBTTL SOFTWARE SWITCH REGISTER LOCATION 


SSSWR : 


.$Y=. 
.=176 
.WORD 
. = .SY 


SAVE ADDRESS LOCATION 

ADDRESS TO SOFTWARE SWITCH REGISTER LOCATION 
LOCATION FOR SOFTWARE SWITCH REGISTER 
RETURN TO PREVIOUS ADDRESS LOCATION 
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1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 
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H 

PAGE 29 


SEQUENCE 


S8TTL ERROR MESSAGE TYPE OUT ROUTINE 
**************************************************************** 

THIS SUBROUTINE IS CALLED BY THE ERROR HANDLER TO TYPE 
THE ERROR MESSAGES. IT PICKS UP THE ITEM BYTE ($ITEM0> NUMBER 
AND USES THAT TO INDEX THROUGH THE ERROR TABLE. THE ERROR 
TABLE STARTS AT “SERRTB" AND HAS FOUR (4) POINTERS FOR EACH 
ENTRY. 'EM'. 'DH\ ’DT\ 'DF\ THE 'EM* POINTS TO THE ERROR 
MESSAGE WHICH IS AN ASCIZ STRING. THE ‘DH' POINTS TO THE DATA 
HEADER WHICH IS ANOTHER ASCIZ STRING. THE ‘DT* POINTS TO THE 
DATA TABLE WHICH IS A GROUP OF WORDS CONTAINING THE ADDRESSES 
OF THE DATA TO BY TYPED. THE FORMAT OF THIS DATA IS 
CONTROLLED BY THE ’DF* WHICH IS THE POINTER TO THE DATA FORMAT. 
THE DATA FORMAT IS A GROUP OF BYTES WHICH CONTAIN NUMBERS 
THAT CORRESPOND TO DIFFERENT TYPING FORMATS. 

0 -16 BIT OCTAL FORMAT 

1 -DECIMAL FORMAT 

2 -22 BIT OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 
PHYSICAL ADDRESS, UPPER 6 BITS ARE ADJACENT TO LOWER 16 

3 -22 BIT OCTAL FORMAT. DATA IS THE 16 BIT VIRTUAL 
ADDRESS IN KERNEL I-SPACE. 

4 -18 BIT OCTAL FORMAT. DATA IS A 16 BIT NUMBER THAT 
WILL BE CONVERTED INTO A UNIBUS ADDRESS BY LEFT 
SHIFTING IT 6 BITS. 

5 -16 BIT OCTAL, SUPPRESS LEADING ZEROS 

6 -16 BIT DECIMAL, SUPPRESS SPACES 

IF YOU SHOULD HAVE A NEED TO JUST TYPE A STRING OF 
NUMBERS. SET UP YOUR CODE THIS WAV: 


MOV 


^CONTINUE ,-(SP) 


MOVE THE ADFRESS OF THE INSTRUCTION AFTER THE 
JUMP TO THE STACK 
SAVE RO 

AND R1 ON THE STACK 

MOVE THE ADDRESS OF THE DATA TABLE TO RO 
SUBROUTINE IDENTIFIED IN CENTER OF THIS ROUTINE 


1777 002026 

010046 


ERTYPE: 

MOV 

RO.-(KSP) 

1778 002030 

005000 



CLR 

RO 

1779 002032 

113700 

001112 


MOVB 

JITEMB.RO 

1780 002036 

001004 



BNE 

1$ 

1781 002040 

013746 

001114 


MOV 

SERRPC.-(KSP) 

1782 002044 

104402 



TYPOC 


1783 002 046 

000565 



BR 

13$ 

1784 002050 

122700 

000177 

IS: 

CMPB 

#177, RO 

1785 002054 

001003 



BNE 

200$ 

1786 002056 

012700 

002432 


MOV 

#PMBECW,RO 

1787 002062 

000451 



BR 

210$ 

1788 002 064 

005300 


200$: 

DEC 

RO 

1789 002066 

072027 

000003 


ASH 

#3.R0 

1790 002072 

100041 



BPL 

22§ 

1791 002074 

023727 

001320 

000020 

CMP 

ERRCNT,#20 


MOV RO.-(SP) 

MOV RI.-(SP) 

MOV DTNAME.RO 

JMP TYPDAT 

CONTINUE: NEXT INSTRUCTION 

AT A CONVENIENT SPOT, ALOCATE THE FOLLOWING: 

DTNAME: .WORD DTLIST .DFNAME .'IDENTIFY THE LIST NAME AND DATA FORMAT BELOW 
DFNAME : .BYTE N.N.N.N.ETC. .'CONSTRUCT YOUR OWN DATA FORMAT LINE 
.EVEN 

DTLIST: VAR 1 , VAR2 . VAR 3 . VAR4 SCRLF.O .'VARIABLES YOU WANT TYPED 


SAVE RO ON STACK 
CLEAR RO 

PUT ITEM NUMBER IN RO 

BRANCH IF IT IS NON-ZERO 

PUT ERROR PC ON STACK FOR TYPING 

TYPE FAILING PC 

GO TO RETURN 

SEE IF THIS IS THE PWR MON BIT ERROR ,'DPMOOI 

BRANCH IF NOT TO CALL ERROR 

MOVE ADDRESS OF SPECIAL DATA HEADER TO RO 

BRANCH TO CALL ERROR 

ADJUST ITEM NUMBER TO BE A POINTER 

LEFT SHIFT ITEM NO. 3 PLACES 

BRANCH IF ITEM NUMBER IS LESS THAN 200 

;* SEE IF 20 (OCTAL) ERRORS HAVE PRINTED 
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1792 002102 002410 

1793 002104 001404 

1794 002106 062766 000004 

1795 002114 000542 

1796 002116 104401 006421 

1797 002122 000537 

1798 002124 022737 000001 

1799 002132 001415 

1800 002 1 34 032777 000200 

1801 002142 001404 

1802 002144 062766 000004 

1803 

1804 002152 000523 

1805 002154 042700 177400 

1806 002160 062700 001672 

1807 002164 000426 

1808 002166 042700 177000 

1809 002172 062700 000300 

1810 
1811 
1812 

1813 002176 104401 001223 

1814 002202 062700 001366 

1815 002206 012037 002216 

1816 002212 001404 

1817 002214 104401 

1818 002216 000000 

1819 002220 104401 001223 

1820 
1821 

1822 002224 012037 002234 

1823 002230 001404 

1824 002232 104401 

1825 002234 000000 

1826 002236 104401 001223 

1827 

1828 

1829 

1830 

1831 002242 010146 

1832 002244 

1833 002244 012001 

1834 002246 001464 

1835 002250 012000 

1836 002252 105710 

1837 002254 001003 

1838 

1839 00225 013146 

1840 002260 104402 

1841 002262 000451 

1842 002264 122710 000001 

1843 002270 001003 

1844 

1845 002272 013146 

1846 002274 104405 

1847 002276 000443 

1848 002300 122710 000002 
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SEQUENCE 


000002 

001320 

176774 

000002 



8LT 

40$ 


;* BRANCH TO PRINT THE ERROR IF LESS 


BEQ 

41$ 


;* BRANCH TO TYPE NO MORE DATA LINES IF EQUAL 


ADD 

*4.2(KSP> 


;* CORRECT PC RETURN TO RETURN AFTER <CRLF> PRINT 


BR 

13i 


;* GO TO RETURN 

41 $ : 

TYPE 

.NOMORE 


;* TYPE MESSAGE TO ANNOUNCE NO MORE PRINTING OF ERRORS 


BR 

13 $ 


;* GO TO RETURN 

40$: 

CMP 

#1 . ERRCNT 


;* SEE IF THIS IS THE FIRST ERROR 


BEQ 

2i i 


;* BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE 


BIT 

#SU7.SSUR 


SEE IF SWITCH 7 IS UP 


BEQ 

20$ 


BRANCH IF SWITCH NOT UP AND TYPE DATA 


ADD 

#4,2(KSP) 


SKIP 'TV PE .$CRLF ' IF SW 7 IS UP 





INHIBIT MULTIPLE ERROR TYPEOUTS 


BR 

13$ 


BRANCH TO EXIT 

20$: 

BIC 

#1 77400.R0 


CLEAR UPPER BYTE OF RO 


ADD 

#ER200+4 ,R0 


POINT TO DATA TABLE ENTRY 


BR 

5$ 


GO TYPE DATA TABLE 

21$: 

BIC 

#1 77000.R0 


CLEAR UPPER BYTE OF RO 


ADD 

#<ER200-$ERRT8> 

.RO ;ADD DIFFERENCE BETWEEN 




• 

ITEM 1 AND ITEM 201 



; : GE T POINTER TO ERROR MESSAGE AND TYPE IT 



; : IF THE 

POINTER IS NOT ZERO 

22$: 

TYPE 

,$CRLF 


TYPE A <CRLF > 


ADD 

#$ERRTB.RO 


ADD BASE OF ERROR TABLE 

210$: 

MOV 

(R0)+,2$ 


P M MESSAGE POINTER IN TYPE STATEMENT 


BEQ 

3$ 


BRANCH IF NO ERROR MESSAGE 


TYPE 



TYPE ERROR MESSAGE 

2$: 

.WORD 

0 


POINTER TO ERROR MESSAGE 


TYPE 

.SCRLF 


TYPE CRLF 



; : GE T THE POINTER TO THE DATA HEADER AND 



;:TYPE 

IT IF THE POINTER IS NOT ZERO 

3$: 

MOV 

(R0)+.4$ 


PUT HEADER POINTER IN TYPE STATEMENT 


BEQ 

5$ 


BRANCH IF NO DATA HEADER 


TYPE 



•TYPE THE DATA HEADER 

4$: 

.WORD 

0 


POINTER TO DATA HEADER 


TYPE 

. SCRLF 


•TYPE CRLF 



; : THI S 

IS THE START OF THE DATA OUTPUT IF THE 



; :DATA 

POINTER IS NOT ZERO. RO POINTS TO THE 



; :DATA 

FORMAT. R1 POINTS TO THE ADDRESS OF 



; : THE DATA WORDS. 

5$: 

MOV 

RI.-(KSP) 


•SAVE R1 ON THE STACK 

TYPDAT= 






MOV 

(R0I+.R1 


PUT DATA TABLE POINTER IN R1 


BEQ 

12$ 


BRANCH IF NO DATA TABLE 


MOV 

(RO)+,RO 


PICK UP DATA FORMAT POINTER 

6$: 

TST8 

(RO) 


IS THIS WORD OCTAL 


BNE 

7$ 


BRANCH IF NOT 16-BIT OCTAL 



; :WORD 

IS 16 BIT OCTAL FORMAT (DF = 0) 


MOV 

3(R1)+,-(KSP) 


PUSH NEXT 16-BIT WORD ON STACK 


TYPOC 



TYPE THE WORD ON STACK AS 16 BIT OCTAL 


BR 

11$ 


GET READY FOR NEXT WORD 

7$: 

CMP8 

#1 , (RO) 


IS THE WORD DECIMAL 


BNE 

8$ 


BRANCH IF NOT DECIMAL 



; : WORD 

IS DECIMAL FORMAT (DF = 1) 


MOV 

a(R1)+.-(KSP) 


PUSH NEXT 16-BIT WORD ON STACK 


TYPDS 



TYPE THE WORD ON STACK AS DECIMAL 


BR 

11$ 


GET READY FOR NEXT WORD 

8$: 

CMPB 

#2,( RO) 


IS WORD 22-BIT PHYSICAL ADDRESS 
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1849 002304 

001012 




BNE 

9$ 

.•BRANCH IF NOT 22-BIT PHYSICAL ADDR 

1850 






; : WORD 

IS 22-BIT PHYSICAL FORMAT (DF = 2) 

1851 002306 

012146 




MOV 

(R1)*.-(KSP) 

.-PUSH NEXT 16-BIT WORD ON STACK 

1852 002310 

004737 

024040 



JSR 

PC ,$D820 

.•CONVERT NUMBER TO OCTAL ASCIZ 

1853 002314 

062716 

000003 



ADD 

#3. (KSP) 

.-ONLY WANT 8 DIGITS 

1854 002320 

012637 

002326 



MOV 

(KSP)*,30$ 

; PUT POINTER AFTER 'TYPE ' CALL 

1855 002324 

104401 




TYPE 


.TYPE ASCIZ STRING 

1856 002326 

000000 



30$: 

.WORD 

0 

.•WORD HOLDS POINTER TO ASCIZ STRING 

1857 002330 

000426 




BR 

11$ 

;GET READY FOR NEXT WORD 

1858 002332 

122710 

000003 


9$: 

CMPB 

#3.(R0) 

;IS THIS A 16-BIT VIRTUAL ADDRESS 

1859 002336 

001004 




BNE 

10$ 

.•BRANCH IF NOT 16-BIT VIRT. ADDR. 

1860 






; : WORD 

IS 22-BIT VIRTUAL ADDRESS FORMAT 

1861 






; : KERNEL I-SPACE ASSUMED. (DF = 3) 

1862 002340 

013146 




MOV 

a(R1)+,-(KSP) 

.-PUSH NEXT 16-BIT WORD ON STACK 

1863 002342 

004737 

002542 



JSR 

PC , TYPVAD 

;G0 TYPE 22-BIT ADDRESS FROM 16-BIT V.A. 

1864 002346 

000417 




BR 

11$ 

;GET READY FOR NEXT WORD 

1865 002350 

122710 

000004 


10$: 

CMPB 

#4,<R0) 

;IS THIS A 16 BIT NUMBER TO BE CONVERTED TO 

1866 







;AN 18 BIT UNIBUS ADDRESS LEFT SHIFTED 6? 

1867 002354 

001003 




BNE 

100$ 

.-SKIP OVER FORMAT 4 ROUTINE IF NOT 

1868 






; : WORD 

IS FORMAT 4. DATA WORD IS A UNI8US 

1869 






; : ADDRESS OUTPUT WILL BE 18-BITS WORD LEFT SHIFTED 6. 

1 870 

1871 002356 

004737 

002650 



JSR 

PC.UBADDR 

.•CONVERT TO 18-BIT UNIBUS ADDR AND TYPE 

1872 002362 

000411 




BR 

ni 

;GET READY FOR NEXT WORD 

1873 002364 

122710 

000005 


100$: 

CMPB 

#5.(R0) 

; IS THIS A 16 BIT NUMBER TO BE PRINTED AS 

1874 







.•OCTAL WITH LEADING ZEROS SUPPRESSED? 

1875 002370 

001004 




BNE 

110$ 

.•BRANCH TO DECIMAL LEADING SPACES SUPPRESS ROUTINE 

1876 






; : WORD 

IS FORMAT 5. DATA WORD IS TO BE 

1877 






; rPRINTED IN OCTAL. LEADING ZEROS SUPPRESSED. 

1878 002372 

013146 




MOV 

a(RIH.-OCSP) 

.-PUSH NEXT 16-BIT WORD ON STACK 

1879 002374 

104403 




TYPOS 


;G0 TYPE OCTAL SUPPRESS LEADING ZEROS 

1880 002376 

006 




.BYTE 

6 

.-TYPE 6 DIGITS AND 

1881 002377 

000 




.BYTE 

0 

.•SUPPRESS LEADING ZEROS 

1882 002400 

000402 




BR 

11$ 

;GET READY FOR NEXT WORD 

1883 002402 




110$: 


; : WORD 

IS FORMAT 6. DATA WORD IS TO BE 

1884 






;:PRINTED IN DECIMAL. LEADING SPACES SUPPRESSED. 

1885 002402 

013146 




MOV 

a(R1)*,-<KSP) 

.-PUSH NEXT 16-BIT WORD ON STACK 

1886 002404 

104405 




TYPDS 



1887 002406 

005200 



11$: 

INC 

RO 

.•POINT TO NEXT FORMAT BYTE 

1888 002410 

104401 

002426 



TYPE 

.32$ 

.TYPE TWO SPACES 

1889 002414 

005711 




TST 

(R1 ) 

; IS THERE ANOTHER WORD? 

1890 002416 

001315 




BNE 

6$ 

.•BRANCH IF NOT ALL DONE 

1891 002420 

012601 



12$: 

MOV 

(KSP)*. R1 

.RESTORE R1 

1892 002422 

012600 



13$: 

MOV 

(KSP)*.RO 

.RESTORE RO 

1893 002424 

000207 




RTS 

PC 

.•RETURN TO ERROR ROUTINE 

1894 002426 

040 

040 

000 

32$: 

•ASCiZ 

? ? 

; TWO SPACES 

1895 





.EVEN 



1896 002432 

002442 

002476 

002526 

PMBECW: 

.WORD 

PMBECM. PMBECH. PMBECD. PMBECF ;4 WORDS POINTING TO BELOW 

1897 002442 

120 

117 

127 

PMBECM: 

.ASCIZ 

7P0WER MONITOR 

BIT FOUND SET? 

1898 002476 

124 

105 

123 

PMBECH: 

.ASCIZ 

7TESTN0 ERR PC CPUERR? 

1899 





.EVEN 



1900 002526 

020146 

001114 

020700 

PMBECD: 

.WORD 

$TESTN,$ERRPC.CPSAVE.O 

1901 002536 

000 

000 

000 

PMBECF: 

.BYTE 

0.0. 0.0 
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K 

30 


SEQUENCE 


1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 


S8TTL CONVERT 16-BIT VIRTUAL ADDRESS TO 22-BIT PHYSICAL ADDRESS 

‘ft************************************************************** 

THIS ROUTINE IS CALLED BY A 'JSR PC' AFTER THE VIRTUAL ADDRESS 
IS PUSHED ON THE KERNEL STACK. THE V.A. IS THEN LOADED INTO 
R1 AND THE UPPER 3 BITS ARE SHIFTED INTO RO TO SELECT THE 
CORRECT KERNEL I-SPACE PAR. THE LOWER 12 BITS OF THE VIRTUAL 
ADDRESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY MANAGEMENT 
AND THE PHYSICAL ADDRESS IS SAVED IN MEMORY TO BE CONVERTED 
TO ASCI2 AND TYPED. 

*************************************************************** 


1914 

002542 

104411 


TYPVAD: SAVREG 


SAVE ALL REGISTERS 

1915 

002544 

016601 

000002 

MOV 

2 (KSP) ,R1 

PUT VIRTUAL ADDR IN R1 

1916 

002550 

005000 


CLR 

RO 

CLEAR RO FOR CALCULATIONS 

1917 

002552 

073027 

000003 

ASHC 

#3,R0 

LEFT SHIFT R0.R1 3 PLACES 

1918 

002556 

006300 


ASL 

RO 

LEFT SHIFT RO ONE MORE PLACE 

1919 

002560 

006001 


ROR 

R1 

RIGHT SHIFT R1 SO OFFSET IS CORRECT 

1920 

002562 

006001 


ROR 

R1 

RIGHT SHIFT R1 

1921 

002564 

006001 


ROR 

R1 

RIGHT SHIFT R1 

1922 

002566 

062700 

172340 

ADD 

fKIPARO.RO 

FORM DESIRED PAR ADDR IN RO 

1923 

002572 

011003 


MOV 

(R0).R3 

PUT CONTENTS OF PAR IN R3 

1924 

002574 

005002 


CLR 

R2 

CLEAR R 2 FOR PHYSICAL ADDR CALCULATIONS 

1925 

002576 

073227 

000006 

ASHC 

#6.R2 

LEFT SHIFT <R2.R3> 6 PLACES 

1926 

002602 

060103 


ADD 

R1 ,R3 

ADD OFFSET IN R1 TO BASE IN R3 

1927 

002604 

005502 


ADC 

R2 

ADD ANY POSSIBLE CARRY TO UPPER 6 BITS 

1928 

002606 

010237 

001230 

MOV 

R2,PADRSH 

PUT UPPER 6 BITS OF ADDR IN CORE 

1929 

002612 

010337 

001226 

MOV 

R3,PADRSL 

PUT LOWER 16 BITS OF ADDR IN CORE 

1930 

002616 

012746 

001226 

MOV 

#PADRSL.-(KSP) 

PUT POINTER r 0 LOWER 16 BITS ON STACK 

1931 

002622 

004737 

024040 

JSR 

PC, $0820 

CONVERT NUMBER TO OCTAL ASCIZ 

1932 

002626 

062716 

000003 

ADD 

#3, (KSP) 

ONLY TYPE 8 DIGITS 

1933 

002632 

012637 

002640 

MOV 

(KSP) + ,3$ 

PUT POINTER AFTER TYPE INST 

1934 

002636 

104401 


TYPE 


TYPE THE 22-BIT VIRTUAL ADDRESS 

1935 

002640 

000000 


3$: .WORD 

0 

THIS WORD HOLDS THE POINTER TO 

1936 






THE ASCIZ STRING 

1937 

002642 

104412 


RESREG 


RESTORE ALL THE REGISTERS 

1938 

002644 

012616 


MOV 

(KSP) ♦ , (KSP) 

LEAVE ONLY RETURN ADDR ON STACK 

1939 

002646 

000207 


RTS 

PC 

RETURN TO ERROR HANDLER 


36 



CKKUAEO 11/24/44 U8I MAP 
SUBROUTINE TO CONVERT WORD TO A 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 002650 104411 

1948 002652 016601 000002 

1949 002656 005000 

1950 002660 073027 000006 

1951 002664 010137 001226 

1952 002670 010037 001230 

1953 002674 012746 001226 

1954 002700 004737 024040 

1955 002704 062716 000005 

1956 002710 012637 002716 

1957 002714 104401 

1958 002716 000000 

1959 002720 104412 

1960 002722 012616 

1961 002724 000207 


l 3 
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UNIBUS ADDRESS AND TYPE 

. S8TTL SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE 

; * T H I S SUBROUTINE IS USED TO CONVERT THE A WORD PUSHED 
; *0N THE STACK INTO A UNIBUS ADDRESS AND TYPE IT AS A 
; *6 DIGIT NUMBER. IT USES R1 t RO AND LEAVES 
; *ALL OTHER REGISTERS UNCHANGED. 


• **** 


UBADDR: 

SAVREG 

MOV 

2(KSP) .R1 

LOAD 16 BIT ADDRESS INTO R1 


CLR 

RO 

CLEAR RO FOR CALCULATIONS 


ASHC 

#6.R0 

LEFT SHIFT <R0:R1> 6 PLACES 


MOV 

R1.PADRSL 

PUT LOWER 16 BITS IN PADRSL 


MOV 

RO.PADRSH 

PUT UPPER 6 BITS IN PADRSH 


MOV 

APADRSL (KSP) 

PUSH POINTER TO WORDS ON STACK 


JSR 

PC.SDB20 

JUMP TO CONVERT ROUTINE 


ADD 

#5, (KSP) 

ONLY USE LOWER 6 CHARS. 


MOV 

(KSP) *.3$ 

PUT POINTER AFTER TYPE CALL. 

3$: 

TYPE 

.WORD 

0 

HOLDS POINTER TO FIRST CHAR. 


RESREG 

MOV 

(KSP) (KSP) 

LEAVE ONLY RETURN ADDRESS ON STACK 


RTS 

PC 

RETURN TO ERROR TYPE ROUTINE. 


SEQUENCE 



CKKUAEO 11/24/44 U6I MAP 
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1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 


M 3 
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S8TTL TURN OFF AND SAVE T-BIT 


000020 

002726 032766 000020 
002734 001406 

002736 016637 000002 
002744 042766 000020 

002752 000006 


001346 

000002 


**************************************************************** 

* ‘‘SUBROUTINES UNIQUE TO THIS PROGRAM** 

; *************************************************************** 
;*************************************************************** 

.•ft************************************************************** 

THIS TRAP ROUTINE IS REACHED BV THE TRAP CALL 'TBITO' . IT IS 
USED TO TURN OFF THE T-BIT IF IT IS ON. THE PROCESSOR STATUS 
IS SAVED IN "OLDPSW" SO THAT THE T-BIT CAN BE RESTORED TO ITS 
PREVIOUS STATUS WHEN CONDITIONS WARRANT. 


TBIT =81 T 4 

000002 T3IT0F: BIT #TBIT,2(KSP> 
BEQ 
MOV 
BIC 

IS: RTT 


1 $ 

2(KSP). OLDPSW 
#TBIT,2(KSP) 


;T-BIT IS BIT04 IN PROC. STATUS 
IS THE T-BIT ON? 

BRANCH TO EXIT IF IT IS NOT ON 
SAVE OLD PSW FOR RESTORING T BIT 
CLEAR T SIT 
RETURN TO PROGRAM 


SEQUENCE 
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1983 

1984 

1985 

1986 

1987 

1988 

1989 
1 ,90 

1991 

1992 

1993 002754 

1994 002762 

1995 

19% 002770 


013766 

042737 

000006 


001346 

000020 


000002 

001346 


SBTTL RESTORE T-BIT TO ITS PRE V I OUS ^ CONDI T I ON ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 


THIS TRAP ROUTINE CAN BE REACHED BY THE TRAP CALL ’ T8I TR* . IT IS 
USED TO RESTORE THE T-BIT AFTER A PARTICULAR TEST THAT CANNOT 
BE RUN WITH THE T-BIT ON. IT USES THE PROCESSOR STATUS STORED 
IN "OLDPSW" BY ' TBI TO ' . REPLACES THE PS ON THE STACK WITH IT 
AND DOES AN * R T T * . 


SEQUENCE 39 


*************************************************************** 

TBITRE: MOV OLDPSW. 2(KSP) ;PUT OLD PSW ON STACK 

BIC #T8IT. OLDPSW .’CLEAR T-BIT IN "OLDPSW" 

; SO THAT IT WON'T BE TURNED ON BY ACCIDENT 
RTT .-RETURN TO PROGRAM AND INHIBIT T-BIT TRAP AFTER THIS INSTRUCTION 



4 
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SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 


S8TTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


THIS SUBROUTINE CLEARS ALL OF THE MAP REGISTERS IF MAPPING IS 
DISABLED BY LOADING THE ADDRESS OF MAPLOO INTO R3 AND THEN 
CLEARING THE REGISTER POINTED TO BY R3 UNTIL R3 POINTS ABOVE 
MAPH37. IF MAPPING IS ENABLED. ALL REGISTERS EXCEPT MAPL1 
IS CLEARED. THE LOWER WORD OF MAPL1 RECEIVES 20000. THIS IS 
SO APT CAN PROPERLY MONITOR THE PROGRESS OF THE DIAGNOSTIC. 


C VV ! 
2008 

002772 

012703 

1 70200 

CLRMAP: MOV 

#MAPL0.R3 

PUT FIRST MAP ADDR IN R3 

2009 

002776 

005023 


CLR 

(R3) ♦ 

CLEAR MAPLO 

2010 

003000 

005023 


CLR 

( R3> ♦ 

CLEAR MAPLO+2 

2011 

003002 

032737 

000040 172516 

BIT 

#8IT5.MMR3 

SEE IF MAPPING IS ENABLED 

2012 

003010 

001402 


BED 

IS 

BRANCH TO CLEAR ALL IF NOT ENABLED 

2013 

003012 

012723 

020000 

MOV 

#20000. <RJ)* 

LOAD 20000 INTO MAPLl FOR POSSIBLE APT USE 

2014 

003016 

005023 


IS: CLR 

(R3/ + 

CLEAR MAP REGISTERS 

2015 

003020 

022703 

170400 

CMP 

#MAPH37*2,R3 

SEE IF LAST ADDR+2 IS IN R3 

2016 

003024 

001374 


BNE 

IS 

BRANCH IF NOT DONE YET 

2017 

003026 

000207 


RTS 

PC 

RETURN TO MAIN PROGRAM 
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SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 


C 

35 


SEQUENCE 


2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 
2063 


SBTTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 
_•»***•*********************************************•**•••*****•* 

THIS SUBROUTINE IS USED TO LOG AND REPORT THE FACT THAT A 
REFERENCE TO A MAPPING REGISTER TIMED OUT ON THE UNIBUS. IT 
KEEPS A "LOGICAL AND" AND A "LOGICAL OR" OF EACH ADDRESS THAT 






• * 

0 

■ * 

TIMES 

OUT. 






0 

003030 

005227 



TIMEOUT 

INC 

(PCH 

INCREMENT ONE TIME GATE 

003032 

177777 



TOFLAG: 

.WORD 

-1 

ONE TIME ENTANCE FLAG 

003034 

001403 




BEQ 

10$ 

BRANCH IF FLAG IS NOW ZERO 

003036 

005237 

020142 



INC 

SMSGTY 

INDICATE TO APT A FATAL ERROR OCCURED 

003042 

000000 




HALT 

; I HAVE ENTERED 

rHIS ROUTINE BEFORE I FINISHED REPORTING THE FIRST ERROR. 








THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE 

FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 

003044 

012637 

001342 


10$: 

MOV 

(KSP>*,OLDPC 

SAVE RETURN ADDRESS 

003050 

012637 

001344 



MOV 

(KSPI+.OLDPS 

SAVE OLD PSW 

003054 

105737 

007140 



TST8 

CPUTYP 

SEE IF THIS IS AN 11/44 

003060 

001406 




BEQ 

1$ 

BRANCH TO CONTINUE IF IT IS 

003062 

005237 

001330 



INC 

PCPUER 

INCREMENT PCPUER TO SHOW A TIMEOUT OCCURED 

003066 

005737 

001326 



TST 

CPUEXP 

SEE IF THERE WAS AN EXPECTED ERROR 

003072 

001435 




BEQ 

3$ 

GO REPORT ERROR IF NONE EXPECTED 

003074 

000442 




BR 

4$ 

BRANCH TO EXIT IF TIMEOUT WAS EXPECTED 

003076 

013737 

1 77766 

001330 

IS: 

MOV 

CPUERR. PCPUER 

SAVE CPU ERROR REGISTER 

003104 

013737 

001330 

177766 


MOV 

PCPUER, CPUERR 

CLEAR CPU ERROR REGISTER 

003112 

023737 

001330 

001326 


CMP 

PCPUER.CPUEXP 

SEE IF EXPECTED CONDITION CAME UP. 

003120 

001405 




BEQ 

2$ 

BRANCH IF IT WAS A TIMEOUT 

003122 

012737 

177777 

0C3032 


MOV 

#-1 .TOFLAG 

RESET ONE TIME GATE 

003130 

104001 




ERROR 

♦ 1 

NOT THE CORRECT CPU TRAP THROUGH 4 

003132 

000423 




BR 

4$ 

BRANCH TO EXIT 

003134 

105737 

007140 


2$: 

TST8 

CPUTYP 

IS THIS AN 11/24? 

003140 

001403 




BEQ 

25$ 

BRANCH IF NOT 

003142 

005237 

001320 



INC 

ERRCNT 

COUNT THIS AS A TIMEOUT 

003146 

000415 




BR 

4$ 

GO TO EXIT 

003150 

022737 

000020 

001326 

25$: 

CMP 

ATIMOUT, CPUEXP 

SEE IF A TIMEOUT WAS EXPECTED 

0031 56 

001411 




BEQ 

4$ 

BRANCH TO EXIT THIS ROUTINE IF IT WAS 

003160 

010046 




MOV 

RO,-(SP) 

PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

003162 

013746 

172356 



MOV 

K1PAR7. -(SP) 

PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 

003166 

004737 

003674 


3$: 

JSR 

PC.ADREXT 

GO SET DATA IN THE 4 WORDS OF ADCROR AND ADRAND 

003172 

012737 

177777 

003032 


MOV 

AM. TOFLAG 

RESET ONE TIME GATE 

003200 

104201 




ERROR 

♦201 

THE FOLLOWING REGISTERS TIMED OUT WHEN READ 

003202 

012737 

177777 

003032 

4$: 

MOV 

#-1. TOFLAG 

RESET ONE TIME GATE 

003210 

013746 

001344 



MOV 

OLDPS.-(KSP) 

RESTORE OLD PSW 

003214 

013746 

001342 



MOV 

OLDPC.-(KSP) 

PUSH RETURN ADDRESS BACK ON THE STACK 

003220 

000006 




RTT 


RETURN TO THE TEST 
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2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
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S8TTL CPU TRAP HANDLER ROUTINES 

♦•TRAP HANDLING ROUTINES** 


THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS. THROUGH 
"ERRVEC” (000004). IF THIS SUBROUTINE IS ENTERED BY A SECOND 
TRAP BEFORE THE FIRST HAS BEEN PROCESSED A HALT IS EXECUTED. 

IF THE WORD 'CPUEXP' IS ZERO, NO TRAP WAS EXPECTED AND AN 
UNEXPECTED ERROR MESSAGE IS GIVEN. IF THE WORD ’CPUEXP' IS 
NOT ZERO THEN THE CPU ERROR REGISTER 'CPUERR' IS COMPARED WITH 
•CPUEXP’ TO SEE IF THE PROPER CONDITION OCCURRED. ’PCPUER' CAN 
BE USED AS A FLAG TO INDICATE THAT A TRAP HAS OCCURRED SINCE IT 
IS LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 


2082 

003222 

005227 



CPUER : 

INC 

(PC)* 

MAKE FLAG ZERO IF FIRST TIME 

2083 

003224 

177777 



CPF LAG: 

.WORD 

-1 

NEGATIVE ONE FOR A FLAG 

2084 

003226 

001403 




BEQ 

10$ 

BRANCH IF FIRST TIME IN 

2085 

003230 

005237 

020142 



INC 

$MSGTY 

INDICATE TO APT A FATAL ERROR OCCURED 

2086 

003234 

000000 




HALT 


I HAVE ENTERED THIS ROUTINE BEFORE 

2087 





; I FINISHED REPORTING THE FIRST ERROR. THE SECOND ENTRY ADDRESS IS ON 

2088 





; THE STACK. AND 

THE FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 

2089 

003236 

012637 

001342 


10$: 

MOV 

(KSP) +.OLDPC 

SAVE RETURN ADDRESS IN CASE OF LOOP 

2090 

003242 

012637 

001344 



MOV 

(KSP)*,OLDPS 

SAVE OLD PSW IN CASE OF LOOP 

2091 

003246 

013737 

177766 

001330 


MOV 

CPUERR, PCPUER 

SAVE CPU ERROR REGISTER 

2092 

003254 

013737 

001342 

001340 


MOV 

OLDPC ,BAD n C 

SAVE PC+2 AT TIME OF ABORT 

2093 

003262 

005737 

001326 



TST 

CPUEXP 

SEE IF ANY CONDITION WAS EXPECTED 

2094 

003266 

001414 




BEQ 

1$ 

BRANCH IF NO TRAP WAS EXPECTED 

2095 

003270 

105737 

007140 



TSTB 

CPUTYP 

SEE IF THIS WAS AN 11/44 

2096 

003274 

001016 




BNE 

2$ 

BRANCH TO CONTINUE IF AN 11/24 

2097 

003276 

023737 

001330 

001326 


CMP 

PCPUER, CPUEXP 

SEE IF EXPECTED ERROR OCCURED 

2098 

003304 

001417 




BEQ 

3$ 

BRANCH IF ERROR CODES MATCH 

2099 

003306 

012737 

177777 

003224 


MOV 

#-1 .CPFLAG 

MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

2100 

003314 

104001 




ERROR 

+ 1 

NOT THE CORRECT CPU TRAP THROUGH 4 

2101 

003316 

000412 




BR 

3$ 

SKIP NEXT INSTRUCTION 

2102 

003320 

012737 

177777 

003224 

1$: 

MOV 

#-1. CPFLAG 

MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

2103 

003326 

104002 




ERROR 

+2 

UNEXPECTED CPU TRAP THROUGH 4 

2104 

003330 

000405 




BR 

3$ 

SKIP NEXT INSTRUCTION 

2105 

003332 

005237 

001320 


2$: 

INC 

ERRCNT 

INCREMENT ERRCNT TO SHOW AN ERROR FOR 11/24 

2106 

003336 

013737 

001326 

001330 


MOV 

CPUEXP, PCPUER 

PUT EXPECTED CONTENTS IN PCPUER 

2107 

003344 

012737 

177777 

003224 

3$: 

MOV 

A-1, CPFLAG 

MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

2108 

003352 

013737 

001330 

177766 


MOV 

PCPUER..PUERR 

CLEAR CPU ERROR REGISTER 

2109 

003360 

013746 

001344 



MOV 

OLDPS.-(KSP) 

PUSH OLD PSW BACK ON STACK 

2110 

003364 

013746 

001342 



MOV 

OLDPC, -(KSP) 

PUSH RETURN ADDRESS BACK ON STACK 

2111 

003370 

000006 




RTT 


RETURN FROM INTERRUPT OR ABORT 


SEQUENCE 
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2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 


003372 

003374 

003376 

003400 

003404 


003406 

003412 

003416 

003422 

003430 

003436 

003444 

003446 

003454 

003462 

003466 

003472 


005227 
1 77777 
001403 
005237 
000000 


011637 
012637 
01 2e>37 
013737 
013737 
013737 
104003 
042737 
012737 
013746 
013746 
000006 


S8TTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 

THIS ROUTINE WILL HANDLE ALL SPURIOUS MEMORY MANAGEMENT TRAPS 
AND ABORTS. IT WILL REPORT THE CONDITION Of ALL THE MEMORY 
MANAGEMENT STATUS REGISTERS. AND THEN RETURN TO THE TEST AND 
TRY TO CONTINUE RUNNING. 

.ft************************************************************** 


020142 


001340 

001342 

001344 

177572 

177574 

177576 

177776 

177777 

001344 

001342 


INC (PC)+ .-MAKE FLAG ZERO If FIRST TIME 

.WORD -1 .'FLAG SHOULD BE NEG ONE 

BEQ 10$ .-BRANCH If FIRST TIME INTO ROUTINE 

INC SMSGTV .-INDICATE TO APT A FATAL ERROR OCCURED 

HALT ; I HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE 

ERROR. THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE FIRST ERROR 
.-CONDITION IS PROBABLY STILL LOCKED UP 


MM TRAP 
MMFLAG 


.-FIRST 


001350 

001352 

001354 

177572 

003374 


10$: MOV (KSP).BADPC 

MOV (KSP) ♦ .OLDPC 

MOV (KS°) ♦ .OLDPS 

MOV MMRO.PMMRO 

MOV MMR1.PMMR1 

MOV MMR2.PMMR2 

ERROR +3 

1$: BIC #1 77776. MMRO 

MOV #-1 .MMFLAG 

MOV OLDPS.-(KSP) 

MOV OLDPC.-(KSP) 

RTT 


SAVE PC AT TIME OF ABORT OR TRAP 
SAVE RETURN ADDRESS IN CASE Of LOOP 
SAVE OLD PSW IN CASE OF LOOP 
SAVE STATUS REGISTER 
SAVE AUTO INC/DEC REGISTER 
SAVE VIRTUAL ADDRESS REGISTER 
UNEXPECTED M.M. ABORT OR TRAP 
CLEAR ALL BITS EXCEPT 0 
RESTORE A NEGATIVE ONE TO FLAG 
PUSH OLD PSW ONTO STACK 
PUSH RETURN ADDRESS ON STACK 
RETURN TO MAIN PROGRAM 


SEQUENCE 
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SEQUENCE 


2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 


003474 

005237 

001174 


TSTLOC : 

INC 

STMPO 

003500 

005737 

005774 



TST 

FLOATR 

003504 

100011 




BPL 

IS 

003506 

022705 

020230 



CMP 

ASDDWl ,R5 

003512 

001417 




BEQ 

NEXT 

003514 

012705 

020230 



MOV 

ASDDU1.R5 

003520 

012737 

000001 

005774 


MOV 

A8I TO, FLOATR 

003526 

000411 




BR 

NEXT 

003530 

005227 



IS: 

INC 

(PC)* 

003532 

177777 



FT THRU: 

.WORD 

-1 

003534 

001004 




BNE 

IS 

003536 

012737 

000001 

005774 


MOV 

A8I TO, FLOATR 

003544 

000402 




BR 

NEXT 

003546 

006337 

005774 


IS: 

ASL 

FLOATR 

003552 

005037 

037776 


NEXT: 

CLR 

37776 

003556 

005037 

001330 



CLR 

PCPUER 

003562 

010210 




MOV 

R2,(R0) 

003564 

023702 

037776 



CMP 

37*76.R2 

003570 

001414 




BEQ 

2S 

003572 

004737 

005076 



JSR 

PC.CHKLMA 

003576 

177736 

177734 



.WORD 

lmahi.lmalow 

003602 

000407 




BR 

2S 

003604 

005737 

001330 



TST 

PCPUER 

003610 

001402 




BEQ 

IS 

003612 

013743 

001174 



MOV 

STMPO, -(R3) 

003616 

062716 

000002 


IS: 

ADD 

» 2 .( SP) 

003622 

000207 



2S: 

RTS 

PC 


SBTTL SUBROUTINE TO TEST A LOCATION FOR URITEABILITY 

THIS SUBROUTINE CLEARS A TEST LOCATION, LOADS THE LOCATION USING 
THE MAP REGISTER, AND DETERMINES IF THE LOCATION WAS LOADED. IF 
IT WAS. RETURN IS NORMAL TO THE TEST. IF NOT, THE PC ON THE 
STACK IS UPDATED BY 2 AND THEN A RETURN IS EXECUTED. 


INCREMENT REGISTER COUNTER 

SEE IF BIT 15 OF FLOATR IS SET 

BRANCH IF STILL PLUS 

SEE IF R5 IS POINTING TO UPPER .DW 

BRANCH IF SO - ALL DONE 

MOVE ADDRESS OF DDW1 TO R5 AND 

RESET BIT 0 IN FLOATR 

BRANCH OVER ASL 

INCREMENT NEXT LOCATION FOR FIRST TIME THROUGH CHECK 

FIRST TIME ENTRANCE FLAG 

BRANCH IF NOT FIRST TIME 

MOVE BIT 0 TO LOCATION FLOATR 

BRANCH OVER THE ASL 

ROTATE THE TEST BIT TO THE LEFT 

CLEAR TEST LOCATION 

CLEAR ERROR LOCATION 

TRY TO LOAD TEST CELL THROUGH MAP 

SEE IF TEST LOCATION WAS LOADED 

BRANCH IF IT WAS LOADED 

GO SEE IF USER SAYS THIS IS AN 11/24 WITH U8 MEMORY 

ADDRESSES OF LMA REGISTERS 

RETURN IS HERE IF OK 

SEE IF A TIMEOUT OCCURED 

BRANCH OVER SPECIAL STACK PUSH IF NOT 

PUSH REGISTER NUMBER THAT TIMED OUT ON SPECIAL STACK 

CORRECT PC RETURN FOR LOAD FAILURE INDICATION 

RETURN FROM THIS SUBROUTINE 



SEQUENCE 


G 4 
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SUBROUTINE TO LOAD DATAOR AND DATAND 


2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 003624 

2186 003632 

2187 003636 

2188 003644 

2189 003646 


SBTTL SUBROUTINE TO LOAD DATAOR AND DATAND 
§ ♦ ♦ ♦ ♦ 


THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
DATA ONTO DATAOR. COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
DATAND. 


• ** 


056637 

000002 

001246 

DATEXT: BIS 

005166 

000002 


COM 

046637 

000002 

001242 

8IC 

012616 



MOV 

000207 



RTS 


2(SP). DATAOR 
2(SP) 

2(SP), DATAND 
(SP)+. (SP) 

PC 


SET THE 'OR* PATTERN TO DATAOR 

COMPLIMENT THE DATA 

CLEAR THE 'AND' PATTERN TO DATAND 

CLEAN THE STACK FOR THE RETURN 

RETURN 



SEQUENCE 46 


H 4 
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SUBROUTINE TO LOAD PATAOR AND PATAND 


2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 
2203 


003650 

003656 

003662 

003670 

003672 


056637 

005166 

046637 

012616 

000207 


000002 

000002 

000002 


001254 

001252 


SBTTL SUBROUTINE TO LOAD PATAOR AND PATAND 


THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
DATA ONTO PATTOR. COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
PATAND. 


• ************* 
PATEXT: BIS 
COM 
BIC 
MOV 
RTS 




2(SP) .PATTOR 
2(SP) 

2 (S P ) .PATAND 
(SP)MSP) 

PC 


SET THE 'OR' PATTERN TO PATTOR 

COMPLIMENT THE PATTERN 

CLEAR THE 'AND* PATTERN TO PATAND 

CLEAN UP STACK FOR RETURN 

RETURN 
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2204 

2205 

2206 
220 7 
2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 
2219 


2221 


MACRO Mil 13 
2 WORDS EACH 


11 -JAN-82 
OF ADDROR 


11:27 PAGE 
& ADRAN 


I 

41 


SEQUENCE 


2241 


003674 

010546 



ADREXT: 

MOV 

R5.-(SP) 

003676 

016605 

000004 



MOV 

4 ( SP) ,R5 

003702 

072527 

1 77766 



ASH 

#-10. .R5 

003706 

042705 

1777C0 



BIC 

#1 77700. R5 

003712 

022705 

000074 



CMP 

#74. R5 

003716 

001002 




BNE 

1$ 

003720 

012705 

000077 



MOV 

#77. R5 

003724 

010537 

001206 


IS: 

MOV 

R5.STMP5 

003730 

050537 

001240 



BIS 

R5.ADDROR+2 

003734 

005105 




COM 

R5 

003736 

040537 

001234 



BIC 

R5.ADRAND*2 

003742 

016605 

000004 



MOV 

4CSPJ.R5 

003746 

013766 

001206 

000004 


MOV 

$TMP5.4(SP) 

003754 

022737 

000074 

001206 


CMP 

#74.STHP5 

003762 

001007 




BNE 

2$ 

003764 

012737 

000077 

005766 


MOV 

#77.EADRES*2 

003772 

016637 

000006 

005764 


MOV 

6CSP) .EADRES 

004000 

000411 




BR 

3$ 

004002 

042705 

176000 


2$: 

BIC 

#1 76000. R5 

004006 

072527 

000006 



ASH 

#6.R5 

004012 

042766 

160000 

000006 


BIC 

#160000. 6 (SP) 

004020 

060566 

000006 



ADD 

R5,6(SP) 

004024 

012605 



3$: 

MOV 

(SP)*.R5 

004026 

056637 

000004 

001236 


BJS 

4 (SP) .ADDROR 

004034 

005166 

000004 



COM 

4(SP) 

004040 

046637 

000004 

001232 


BIC 

4 (SP), ADRAND 

004046 

005166 

000004 



COM 

4 (SP) 

004052 

022737 

000077 

005766 


CMP 

#77.EADRES*2 

004060 

001406 




BEQ 

4$ 

004062 

016637 

000004 

005764 


MOV 

4 (SP), EADRES 

004070 

016637 

000002 

005766 


MOV 

2(SP) .EADRES+2 

004076 

012666 

000002 


4$: 

MOV 

(SP)+.2(SP) 

004102 

005726 




TST 

(SP)* 

004104 

000207 




RTS 

PC 


SBTTL SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAND 

THIS SUBROUTINE ASSUMES THE CONTENTS OF THE PAR. AND THE VIRTUAL 
ADDRESS HAVE BEEN PUT ON THE STACK. IT TAKES THE PAR, SHIFTS IT 
TO EXPOSE THE UPPER ADDRESS BITS, BIT SETS THEM TO ADDROR+2, COM- 
PLIMENTS THE CONTENTS AND BIT CLEARS ADRAND+2. AFTER RELOADING 
THE PAR IN R5. IT SHIFTS TO GET THE LOWER 16 BIT EQUIVALENT AND 
ADDS THE VIRTUAL ADDRESS TO CREATE THE PHYSICAL LOWER 16 BITS. 

THEN IT BIT SETS THEM TO ADDROR. COMPLIMENTS THE CONTENTS AND 
BIT CLEARS ADRAND. ANOTHER COMPLIMENT BRINGS THE STATE BACK TO 
ITS ORIGINAL STATE. THIS SUBROUTINE LEAVES WITH THE LOWER 16 
BITS AND THE UPPER 6 BITS ON THE STACK, AND ARE TO BE REMOVED IN 
THAT ORDER. AND MUST BE REMOVED AFTER RETURN. 

*************************************************************** 

SAVE R5 

MOVE PAR CONTENTS TO R5 FOR SHIFTING 
SHIFT R5 TO THE RIGHT 10 PLACES 
CLEAR BITS 15 TO 6 
SEE IF I/O PAGE 
BRANCH IF NOT 
RESET R5 TO 77 

MOVE OBTAINED UPPER 6 BITS TO $TMP5 FOR FUTURE TRANSFER 
SET THE ‘OR’ PATTERN OF UPPER 6 BITS TO ADDR0R*2 
compliment R5 

CLEAR THE ’AND’ PATTERN OF UPPER 6 BITS TO ADRAND+2 
PUT PAR CONTENTS BACK IN R5 
MOVE UPPER 6 BITS OF PHYSICAL ADDRESS ON STACK 
SEE IF I/O PAGE 
BRANCH IF NOT 

SET 77 IN UPPER ERROR LOCATION 
SET LOWER ADDRESS IN LOWER ERROR LOCATION 
BRANCH OVER PREP 

STRIP OFF UPPER 6 BITS OF PAR CONTENTS 
SHIFT REMAINING BITS 6 PLACES TO THE LEFT 
STRIP OFF PAR PAGE BITS FROM ADDRESS TO FORM OFFSET 
FORM LOWER 16 BITS OF ADDRESS 
RESTORE R5 

SET THE ’OR* PATTERN TO ADDROR 
COMPLIMENT THE ADDRESS 
CLEAR THE 'AND* PATTERN TO ADRAND 
RETURN ADDRESS TO ITS ORIGINAL STATE 
SEE IF I/O PAGE IN UPPER LOCATION 
BRANCH TO EXIT IF SO 

PUT LOWER 16 BITS IN ERROR STATUS LOCATION 
PUT UPPER 6 BITS IN ERROR STATUS LOCATION 
PUT RETURN ADDRESS WHERE IT BELONGS 
CLEAN STACK 
RETURN 
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SUBROUTINE TESTING RELOCATION ADDER 


2254 






. S8TTL 

SUBROUTINE TESTING RELOCATION ADDER 

2255 





***************************************************************** 

2256 





* 

THE FOLLOWING SUBROUTINE 

IS USED IN TESTS 13 AND 16. AND USES THE DATA 

2257 





* 

BANK FOLLOWING TO EXECUTE THE LOOPS IN THE TEST. R3 IS THE SPECIAL 

2258 





* 

'STACK' 

POINTER. INITIALIZED AT THE BEGINING TO THE R3STAK DATA BANK. 

2259 





* 

THE STACK POINTER IS ADVANCED 3 WORDS FOR EACH PASS. CALL THIS SUB- 

2260 





* 

ROUTINE 

IN THIS MANNER: 


2261 





* 

CLR 

STMP4 

CLEAR $TMP4 - USED IN ERROR RETURN 

2262 





*1$: 

JSR 

PC. MAPADD 

GO DO THE TEST 

2263 





* 

ERROR 

+ERRORNUMBER 

RETURN IS HERE FOR ERROR 

2264 





* 

BR 

1$ 

BRANCH BACK TO CONTINUE TEST 

2265 





' *************************************************************** 

2266 

004106 

005737 

004312 

MAPADD : 

TST 

LOEFLG 

SEE IF THIS ENTRY WAS AN ERROR 

2267 

004112 

001070 




BNE 

3$ 

GO CONTINUE TEST 

2268 

004114 

011646 




MOV 

(SP).-(SP) 

MOVE RETURN UP ONE NOTCH 

2269 

004116 

062766 

000004 

000002 


ADD 

#4,2(SP) 

CREATE ADDRESS ON STACK FOR FINAL RETURN 

2270 

004124 

012703 

004314 



MOV 

AR3STAK.R3 

SET THE SPECIAL STACK POINTER 

2271 

004130 

012704 

000013 



MOV 

#13. R4 

SET THE LOOP COUNTER 

2272 

004134 

012737 

004162 

001106 


MOV 

#2$.$LPERR 

SET LOOP ON ERROR POINTER TO 2$ 

2273 

004142 

005077 

175134 



CLR 

SLREGU 

CLEAR UPPER BITS OF MAPPING REG 

2274 

004146 

012377 

175126 

1$: 

MOV 

(R3H.SLREGL 

LOAD LOWER BITS OF MAPPING REG 

2275 

004152 

013737 

001256 

172354 


MOV 

LOWEST. KIPAR6 

LOAD PAR6 WITH ADDR OF LOWEST MAP REG 

2276 

004160 

012300 




MOV 

(R3H.R0 

SELECT PAR6. OFFSET IS AUGEND 

2277 

004162 

011001 


21 : 

MOV 

(RO).RI 

READ LOCATION DEFINED BY 4TH WORD IN TABLE 

2278 

004164 

012337 

001310 



MOV 

(R3H.UBH24L 

MOVE ANTICIPATED PHYSICAL ADDRESS TO UBM24L 

2279 

004170 

020137 

001310 



CMP 

R1.U8M24L 

SEE IF THE MAP'S FETCH WAS CORRECT 

2280 

004174 

001443 




BEQ 

4$ 

BRANCH IF FETCHED DATA MATCHES ADDRESS 

2281 

004176 

004737 

005076 



JSR 

PC .CHKLMA 

GO SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMOR 

2282 

004202 

1 77736 

177734 



.WORD 

LMAHI .LMALOW 

ADDRESSES OF LMA REGISTERS 

2283 

004206 

000436 




BR 

4$ 

RETURN IS HERE IF OK 

2284 

004210 

032777 

004000 

174720 


BIT 

#8IT11,aSWR 

CHECK TO SEE IF 11/24 WITH UB MEMORY ONLY 

2285 

004216 

001406 




BEQ 

25$ 

BRANCH IF NOT 

2286 

004220 

017737 

1 75064 

001176 


MOV 

8UBM24L ,$TMP1 

GET EXPECTED DATA FOR ERROR CALL 

2287 

004226 

004737 

005000 



JSR 

PC.PTMP2 

GO PREPARE $TMP2 FOR ERROR CALL 

2288 

004232 

000404 




BR 

26i 

GO CALL ERROR 

2289 

004234 

011037 

001176 

25$: 

MOV 

(R0),$TMP1 

GET EXPECTED DATA FOR ERROR CALL 

2290 

004240 

010137 

001200 



MOV 

R1.$TMP2 

GET DATA FROM R1 FOR ERROR CALL 

2291 

004244 

162703 

000002 

26$: 

SUB 

#2.R3 

ANTICIPATE ERROR LOOPING BY UNDOING AUTOINC 

2292 

004250 

013737 

001310 

005764 


MOV 

U8M24L.EADRES 

PUT ADDRESS IN EADRES FOR ERROR CALL 

2293 

004256 

005037 

005766 



CLR 

EADRES+2 

CLEAR UPPER LOCATION 

2294 

004262 

011646 




MOV 

(SP), -(SP) 

PUT AN EXTRA RETURN ON FOR POSSIBLE ERROR LOOPING 

2295 

004264 

012737 

000001 

004312 


MOV 

#1. LOEFLG 

SET FLAG SHOWING ERROR CALL WAS CALLED 

2296 

004272 

000207 




RTS 

PC 

EXIT TO ERROR CALL AT TEST 

2297 

004274 

062703 

000002 

3$: 

ADD 

#2,R3 

RESTORE AUTOINC. ERROR LOOPING NOT DONE 

2298 

004300 

062706 

000002 



ADD 

#2,SP 

CLEAN EXTRA RETURN OFF STACK - LOOPING NOT DONE 

2299 

004304 

077460 


4$: 

SOB 

R4,1$ 

SUBTRACT 1 FROM R4 AND BRANCH IF NOT 0 

2300 

004306 

005726 




TST 

(SP) + 

EXPOSE NEXT TEST RETURN ADDRESS 

2301 

004310 

000207 




RTS 

PC 

EXIT TO NEXT TEST 

2302 

004312 

000000 


loeflg. 

.WORD 

0 

LOOP ON ERROR FLAG LOCATION 
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SEQUENCE 


2303 





.-DATA 

2304 





; »>N 

2305 






2306 






2307 

*)7A Q 






2309 

004314 

060000 

140000 

060000 R3STAX: 

‘.WORD 

2310 

004322 

052524 

145252 

057776 

.WORD 

2311 

004330 

045252 

152524 

057776 

.WORD 

2312 

004336 

050420 

150420 

061040 

.WORD 

2313 

004344 

054630 

144210 

061040 

.WORD 

2314 

004352 

044210 

154630 

061040 

.WORD 

2315 

004360 

056734 

142104 

061040 

.WORD 

2316 

004366 

042104 

156734 

061040 

.WORD 

2317 

004374 

057776 

141042 

061040 

.WORD 

2318 

004402 

041042 

157776 

061040 

.WORD 

2319 

004410 

057776 

140002 

060000 

.WORD 


(;) BETWEEN THE EXPECTED ADDRESS AND THE OFFSE1 VALUES 

. vrtual.'phvscl; 

BASE . ADDRES ! ADDRES I OFFSET R4 VALUE 
EXPCTD! 

060000 . 1 40000.060000; 000000 R4=1 3 

052524 , 1 45252,057776; 005252 R4=12 

045252,1 52524.057776:012524 R4=11 

050420.150420,061040:010420 R4=10 

054630.144210,061040:004210 R4=7 

044210,154630,061040:014630 R4=6 

056734.142104,061040:002104 R4=5 

042104 . 1 56734,061040:01 6734 R4=4 

057776.141042,061040:001042 R4=3 

041042,157776,061040:017776 R4=2 

05 7776 , 1 40002 , 060000; 000002 R4=1 
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SUBROUTINE TO TEST CARRY PROP OF MAP’S RELOC ADDER 


2320 






•SBTTL 

SUBROUTINE TO TEST CARRY PROP OF MAP’S RELOC ADDER 

CJC 1 

2322 





^ A A 

# 

* 

THIS SUBROUTINE IS USED BY TESTS 14 AND 17. CODE CALLING THIS SUB- 

2323 





* 

ROUTINE 

IS AS FOLLOWS: 


2324 





* 

CLR 

$TMP4 

CLEAR $TMP4 - USED IN ERROR RETURN 

2325 





•LAB 

: JSR 

PC.TCPMRA 

♦2ll 

GO DO THE TEST 

2326 





* 

ERROR 

RETURN IS HERE IF AN ERROR 

2327 

*57*50 





* 

BR 

LAB 

BRANCH BACK TO CONTINUE TEST 

CJCO 

2329 

004416 

005737 

004312 


rCPMRA: TST 

LOEFLG 

TEST ERROR FLAG TO SEE IF THIS ENTRY IS FROM ERROR 

2330 

004422 

001132 




BNE 

4$ 

BRANCH TO CONTINUE TEST IF SO 

2331 

004424 

011646 




MOV 

(SP).-(SP) 

MOVE RETURN ADDRESS UP ONE NOTCH 

2332 

004426 

062766 

000004 

000002 


ADD 

#4,2(SP) 

CREATE CORRECT FINAL RETURN ADDRESS 

2333 

004434 

012737 

177777 

004674 


MOV 

A- 1 ,35$ 

INITIALIZE FLAG AS NEGATIVE ONE 

2334 

004442 

005077 

174634 



CLR 

3LREGU 

CLEAR UPPER 6 BITS OF MAP REG 

2335 

004446 

012777 

020000 

174624 


MOV 

#20000, BLREGL 
#100100. R1 

LOAD 4K BASE INTO MAP REGISTER 

2336 

004454 

012701 

100100 



MOV 

LOAD BITS TO SELECT PAR 4, OFFSET 100 

2337 

004460 

012700 

150000 



MOV 

#150000. RO 

LOAD BITS TO SELECT PAR 6, OFFSET 2K 

2338 

004464 

012737 

000277 

172350 


MOV 

#277. XIPAR4 

START WITH PHYSICAL 6K 

2339 

004472 

013737 

001256 

172354 


MOV 

LOWEST , XI PAR6 

LOAD PAR 6 WITH MAP REG’S ADDR 

2340 

004500 

012737 

004552 

001106 


MOV 

#2$,$LPERR 

SET LOOP ON ERROR POINTER TO 2$ 

2341 

004506 

005037 

001 33C 

1$: 

CLR 

PCPUER 

CLEAR TIME OUT FLAG 

2342 

004512 

062737 

010000 

001310 


ADD 

#10000.UBM24L 

FORM EXPECTED LMA FOR POSSIBLE USE 

2343 

004520 

001002 




BNE 

15$ 

BRANCH AROUND UBM24U INCREMENT IF NOT ZERO 

2344 

004522 

005237 

001312 



INC 

U8M24U 

INCREMENT UPPER LOCATION 

2345 

004526 

012737 

000020 

001326 15J: 

MOV 

#20.CPUEXP 

EXPECTING A UNIBUS TIME OUT DURING TEST 

2346 

004534 

013710 

001364 



MOV 

DATA, (RO) 

THIS LOAD WILL TIME OUT WHEN YOU HAVE REACHED THE TOP 

2347 





OF MEMORY IT SELECTS PAR 6 WHICH WILL PUT ADDR <XXX1>0000 ON THE UNIBUS. THE X’S WILL 

2348 





SELECT THE LOWEST USABLE MAPPING REGISTER. THE DEFAULT CASE IS 00010000. SELECTING 

2349 





MAP 

RECISTER 0 



2350 

004540 

005037 

001326 



CLR 

CPUEXP 

CLEAR CPUEXP - DON’T EXPECT TRAPS FOR A WHILE 

2351 

004544 

005737 

001330 



TST 

PCPUER 

SEE IF THERE WAS MAIN MEMORY 

2352 

004550 

001050 




BNE 

3$ 

BRANCH IF NO MAIN MEMORY FROM UNIBUS 

2353 

004552 

012737 

000040 

001326 2$: 

MOV 

#NEXMEM. CPUEXP 

POSSIBLE CACHE NON-EXISTENT MEMORY 

2354 

004560 

011103 




MOV 

<R1).R3 

READ TEST LOCATION VIA FASTBUS 

2355 

004562 

005037 

001326 



CLR 

CPUEXP 

CLEAR CPUEXP - DON’T EXPECT TRAPS FOR A WHILE 

2356 

004566 

022737 

000040 

001330 


CMP 

#NEXMEM, PCPUER 

WAS THIS CACHE NON-EXISTENT MEMORY 

2357 

004574 

001436 




BEO 

3$ 

BRANCH IF NON-EXISTENT MEMORY 

2358 

004576 

011002 




MOV 

(RO).R 2 

R2.R3 

READ TEST LOCATION VIA UNIBUS HAP 

2359 

004600 

020203 




CMP 

COMPARE TEST DATA R2=HAP DATA. R3=FASTBUS DATA 

2360 

004602 

001433 




BEO 

3$ 

BRANCH IF IT WAS THE SAME 

2361 

004604 

004737 

005076 



JSR 

PC.CHXLMA 

GO CHECK FOR 11/24 WITH U8 MEMORY 

2362 

004610 

1 77736 

177734 



.WORD 

LMAHI.LMALOW 

ADDRESSES OF LMA REGISTERS 

2363 

004614 

000426 




BR 

3$ 

RETURN IS HERE IF OK 

2364 

004616 

032777 

004000 

174312 


BIT 

#81 T 1 1 ,3SWR 

SEE IF THIS IS AN 11/24 WITH U8 MEMORY ONLY 

2365 

004624 

001403 




BEO 

25$ 

BRANCH IF NOT 

2366 

004626 

004737 

005000 



JSR 

PC.PTMP2 

GO PREPARE $TMP2 FOR ERROR CALL 

2367 

004632 

000402 




BR 

26i 

BRANCH TO CALL ERROR 

2368 

004634 

011037 

001200 

25$: 

MOV 

(RO) ,$TMP2 

GET RECEIVED DATA FOR ERROR CALL 

2369 

004640 

010337 

001176 

26$: 

MOV 

R3.$TMP1 

GET EXPECTED DATA FOR ERROR CALL 

2370 

004644 

011646 




MOV 

(SP).-(SP) 

PUT AN EXTRA RETURN ADDRESS ON STACK FOR POSSIBLE LOOP 

2371 

004646 

013737 

001310 

005764 


MOV 

U8M24L.EADRES 

LOAD LOWER 16 BITS OF ADDRESS FOR ERROR CALL 

2372 

004654 

013737 

001312 

005766 


MOV 

U8M24U.EADRES+2 

LOAD UPPER 6 BITS OF ADDRESS FOR ERROR CALL 

2373 

004662 

012737 

000001 

004312 


MOV 

#1. LOEFLG 

SET FLAG SHOWING AN ERROR RETURN 

2374 

004670 

000207 




RTS 

PC 

RETURN TO THE ERROR 

2375 

004672 

005227 


3$: 

INC 

(PC)* 

INCREMENT ONE TIME ENTRANCE FLAG 

2376 

004674 

177777 


35$: 

.WORD 

-1 

FLAG 
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?3 77 

004676 

001006 




BNE 

5S 

2378 

004700 

013737 

172350 

001356 


MOV 

KIPAR4.RSIZE 

2379 004706 

000402 




BR 

5S 

2380 

004710 

062706 

000002 


4$: 

ADD 

#2.SP 
#100. DATA 

2381 

004714 

062737 

000100 

001364 

5$: 

ADD 

2382 

004722 

062737 

000100 

172350 


ADD 

#100,KIPAR4 
#10000. iLREGL 

2383 

004730 

062777 

010000 

174342 


ADD 

2384 

004736 

001263 




BNE 

IS 

2385 

004740 

005277 

174336 



INC 

BLREGU 

2386 

004744 

022777 

000073 

174330 


CMP 

#73,3LREGU 

2387 

004752 

103255 




BHIS 

IS 

2388 

004754 

005237 

001364 



INC 

DATA 

2389 

004760 

042737 

177700 

001364 


BIC 

#1 77700.DATA 

2390 

004766 

052737 

000300 

001364 


BIS 

#300, DATA 

2391 

004774 

005726 




TST 

(SP)* 

2392 

004776 

000207 




RTS 

PC 


SEQUENCE 51 


BRANCH IF I'VE BEEN HERE BEFORE 

SAVE UPPER LIMIT OF MEMORY 

BRANCH OVER ERROR LOOP CORRECTION 

POP EXCESS RETURN ADDRESS OFF STACK 

CHANGE PATTERN FOR NEXT LOAD 

ADD 2K TO PAR 4 

ADD 2K TO MAP REGISTER 

BRANCH IF MAP REGISTER NOT ZERO 

ADD ONE TO UPPER 6 BITS OF MAP REG 

SEE IF TOP 128K BLOCK HAS BEEN PASSED 

8RANCH IF NOT PAST IT 

CHANGE DATA PATTERN FOR NEXT PASS 

CLEAR UPPER 10 BITS OF DATA PATTERN 

START WITH 3XX IN DATA PATTERN 

POP STACK EXPOSING FINAL RETURN ADDRESS 

EXIT 
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SUBROUTINE TO OBTAIN CONTENTS OF IMA CONTENTS LOCATION 


2393 





. S8TTL 

SUBROUTINE TO 

2394 

005000 

013705 

177734 

PTMP2 : 

MOV 

LMAL0W.R5 

2395 

005004 

072527 

177772 


ASH 

#-6,R5 

2396 

005010 

042705 

176177 


BIC 

#176177,R5 

R5.-CSP) 

2397 

005014 

010546 



MOV 

2398 005016 

013705 

177736 


MOV 

LMAHI ,R5 

2399 

005022 

072527 

000012 


ASH 

#10. ,R5 

2400 

005026 

062605 



ADD 

(SP) +.R5 
KIPAR3,-(SP) 

2401 

005030 

013746 

172346 


MOV 

2402 

005034 

010537 

172346 


MOV 

R5.KIPAR3 

2403 

005040 

013737 

17^734 

001200 

MOV 

LMAL0W.STMP2 

2404 

005046 

042737 

1 00000 

001200 

BIC 

#81 T1 5 ,$TMP2 

2405 

005054 

052737 

060000 

001200 

BIS 

#60000, STM P2 

2406 

005062 

017737 

174112 

001200 

MOV 

aSTMP2,$TMP2 

2407 

005070 

012637 

172346 


MOV 

(SP/+.KIPAR3 

2408 

005074 

000207 



RTS 

PC 


I 


SEQUENCE 52 


AIN CONTENTS OF IMA CONTENTS LOCATION 

MOVE LMA LOW REGISTER CONTENTS TO R5 FOR SHIFTING 

SHIFT PHYSICAL UPPER 3 BITS TO THE RIGHT 6 PLACES 

CLEAR ALL BUT THE THREE SHIFTED BITS 

SAVE THIS NUMBER ON THE STACK 

MOVE LMA HIGH REGISTER CONTENTS TO R5 FOR SHIFTING 

SHIFT LOWER 6 BITS TO THE LEFT 10 PLACES 

ADD PREVIOUSLY SHIFTED CONTENTS TO R5 

SAVE PAR3 ON STACK 

MOVE OBTAINED PAR VALUE TO PAR 3 

GET ADDRESS MAP CREATED 

CLEAR BIT 15 AND 

SET BITS 13 t 14 TO PUT PAR PAGE 3 IN STMP2 
MOVE CONTENTS OF LOCATION TO STMP2 
RESTORE PAR3 
EXIT 



SEQ< •FNi'E 
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SUBROUTINE TO CHECK FOR 11/24 WITH U8REH0RY 


2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 


.SBTTL SUBROUTINE TU CHECK FOR 11/24 with UBHERORy 


THIS SUBROUTINE CHECKS THE SWITCH REGISTER TO SEE IF USER STATES That 

THIS IS AN 11/24 CPU WITH UNIBUS REHORY ONLY. IF NOT. AN EXIT IS 

EXECUTED WITH THE RETURN BEING UPDATED TO THE 2ND LOCATION AFTER THE 
JSR CALL. IF IT IS. THE LMA HIGH REGISTER IS CHECKED FOR BEING EQUAL 
TO THE CONTENTS OF UBM24U. (ASSURED T 0 BE PRELOADED. THESE 6 BITS ARE 
THE UPPER 6 BITS OF THE HAPPED ADDRESS FORRED BY THE HAP REGISTER 
LOGIC), IF NOT. EXIT TO FUDGE RETURN. IF SO. THE LRA LOW REGISTER IS 

CHECKED. IT IS ASSURED THAT LOCATION U8H24L CONTAINS THE EXPECTED 

PHYSICAL ADDRESS. IT CORPARES THE LRA LOW REGISTER WITH U8R24l. AND IF 
EQUAL. EXECUTES A RETURN WITHOUT THE FUDGING OF THE RETURN ADDRESS. 
OTHERWISE IT IS FUDGED. 


005076 

017637 

000000 

005134 

CHKLHA: 

ROV 

S0(SP).10S 

ROVE LRAHI ADDRESS TO ACCESS TO 10$ 


005104 

062716 

000002 



ADD 

#2, (SP) 

ADVANCE TO NEXT PARAHETER 


005110 

017637 

000000 

005154 


ROV 

ao(SP).n* 

ROVE LRALOW ADDRESS TO ACCESS TO 11$ 


005116 

062716 

000002 



ADD 

#2, (SP) 

CORRECT RETURN OVER PARAHETER 


005122 

032777 

004000 

1 74006 


BIT 

#8IT11.aSWR 

SEE IF USER SAYS THIS IS AN 11/24 WITH u6 

RE RORY 

005130 

001413 




BEO 

1$ 

BRANCH OUT IF NOT 


005132 

013746 




ROV 

8(PC)*.-(SP) 

ROVE LRA HIGH REGISTER CONTENTS TO STACK 


005134 

000000 



10$: 

.WORD 

0 

LOCATION FOR ADDRESS TO ACCESS 


005136 

042716 

1 77700 



BIC 

#1 77700, (SP) 

CLEAR ALL BUT LOWER 6 BITS (UPPER 6 BITS OF ADDRESS) 

005142 

023726 

001312 



CRP 

U8H24U. (SP) ♦ 

SEE IF UPPER 6 BITS ARE AS EXPECTED 


005146 

001004 




BNE 

1$ 

BRANCH TO PREPARE FOR 2ND RETURN LOCATION 

IF NOT 

005150 

023737 

001310 



CRP 

U8R24L ,8(PC ) ♦ 

SEE IF EXPECTED DATA WAS CLOCKED PROPERLY 


005154 

000000 



1 1S: 

.WORD 

C 

LOCATION FOR ADDRESS TO ACCESS 


005156 

001402 




BEO 

2$ 

BRANCH AROUND STACK RETURN FUDGE IF OK 


005160 

062716 

000002 


1$: 

ADD 

#2. (SP) 

FUDGE RETURN OVER NON-ERROR BRANCH 


005164 

000 20 7 



2$: 

RTS 

PC 

EXIT 




CUUAEO 11/24/44 08 1 MAP MACRO Ml 113 11-JAN-82 

PRETEST DATA SE’UP SUBROUTINE 

2441 .SBTTL 

2442 ;;,*...******* 

2443 005166 011600 PRETST: MOV 

2444 005170 012037 001362 MOV 

2445 005174 012037 001106 MOV 

2446 005200 012037 001100 MOV 

2447 005204 013777 001100 173726 MOV 

2448 005212 010016 MOV 

2449 005214 010037 001104 MOV 

2450 005220 012737 000001 001212 MOV 

2451 005226 000207 RTS 


SEQUENT F t >~ 


11:27 


C 5 
PAGE 47 


PRETEST DATA SETUP SUBROUTINE 


(SP).RO 

(RO) * .NXTTST 

(RO) ♦ .SLPERR 

(RO)+,STSTNM 

STSTNM, SOI SPLAY 

RO.(SP) 

RO.SLPADR 

/T1.STIMES 

PC 


MOVE RETURN ADDRESS TO RO 

SAVE STARTING ADDRESS OF NEXT TEST FOR ESCAPE ON PAR ERRORS 

SET LOOP ON ERROR POINTER TO 20* IN TEST 

SETUP TEST NUMBER AND CLEAR THE ERROR FLAG 

DISPLAY TEST NUMBER FOR ALL TO SEE 

FUDGE RETURN OVER PARAMETERS 

SET LOOP ON TEST POINTER TO START Of TEST 

RESET ITERATIONS COUNTER TO 1 

RETURN TO BEGIN TEST 



D 5 


CKKUAEO 

11/24/44 UBI MAP 

MACRO Ml 113 11 

-JAN-82 

11:27 PAGE 48 



SEQUENCE 

DISABLE 

CHECK 

subroutine 







2452 





.SBTTl 

DISABLE CHECK 

SUBROUTINE 


2*55 




0 0 



* * 



2 * 5*4 




0 0 






2455 




• * 






2456 




; * 

THIS SUBROUTINE CHECKS 

THE STATUS OF THE BIT POINTED TO IN FLOATR 


2457 




; * 

IN THE 

LOCATION POINTED TO BY R5 (EITHER SDDWO OR SDDWl ) , AND DETER- 


2458 




• * 

MINES 

IF THE LOCATION 

SHOULD BE DISABLED. 


2459 

005230 

105737 

020162 

DSABLD: 

TSTB 

$ENV 


TEST APT STATUS 


2460 

005234 

001411 



BEQ 

1$ 


BRANCH IF NOT APT 


2461 

005236 

105737 

020163 


TSTB 

tENVM 


DOES APT SAY TO SIZE 


2462 

005242 

100006 



BPL 

IS 


BRANCH TO EXIT IF NOT 


2463 

005244 

033715 

005774 


BIT 

FLOATR. (R5) 


TEST DISABLE STATUS 


2464 

005250 

001403 



BEQ 

IS 


BRANCH IF IT SHOULD BE DISA8LED 


2465 

005252 

011537 

001176 


MOV 

(R5) , STMP1 


MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO 

STMP1 

2466 

005256 

000402 



BR 

2$ 


BRANCH OVER RETURN CORRECTION 


2467 

005260 

062716 

000002 

It: 

ADD 

K2, (SP) 


CHOCOLATE FUDGE RETURN OVER ERROR CALL 


2468 

005264 

000207 


2t: 

RTS 

PC 


•RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 



IKKUAEO 11/24/44 U8I MAP 
ENABLE CHECK SUBROUTINE 


SEQUENCE 
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2469 



2470 



2471 



2472 



2473 



2474 005266 

105737 

020162 

2475 005272 

001411 


2476 005274 

105737 

020163 

2477 005300 

100006 


2478 005302 

033715 

005774 

2479 005306 

001003 


2480 005310 

011537 

001 1 76 

2481 005314 

000402 


2482 005316 

062716 

000002 

2483 005322 

000207 



.SBTTL ENABLE CHECK SUBROUTINE 


• • 

• * 

THIS SUBROUTINE CHECKS 

THE STATUS OF THE BIT POINTED TO IN f LOATR 

■ * 

IN THE 

LOCATION POINTED 

TO BY R5 (EITHER SDDWO OR SDDWl ) . AND DETER- 

• * 

MINES 

IE THE LOCATION SHOULD BE ENABLED. 

ENABLD: 

TST8 

$ENV 


TEST APT STATUS 

BEQ 

1$ 


BRANCH IF NOT APT 


TSTB 

SENVM 


DOES APT SAY TO SIZE 


8PL 

1$ 


BRANCH TO EXIT IE NOT 


BIT 

ELOATR, (R5) 


TEST DISABLE STATUS 


BNE 

1$ 


BRANCH IE IT SHOULD BE ENABLED 


MOV 

<R5).STMP1 


MOVE CONTENTS OE DEVICE DESCRIPTOR WORD TO STMP1 


BR 

2$ 


BRANCH OVER RETURN CORRECTION 

1$: 

ADD 

M2. (SP) 


VANILLA EUDGE RETURN OVER ERROR CALL 

2$: 

RTS 

PC 


RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 
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2484 

2485 

2486 


2491 
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SEQUENCE 


2500 

2501 


2504 

2505 

2506 

2507 

2508 


2511 


2519 

2520 

2521 


2526 

2527 

2528 

2529 







.S8TTL 

CACHE TEST IN SUBROUTINE FORM 





• • 

.ENABL 

LS8 


005324 

042737 

000001 

177572 

CASHSR: 

BIC 

#81 TOO.MMRO 

TURN OFF RELOCATION 

005332 

052737 

000400 

177746 


BIS 

#8JT08, CACHE 

FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 

005340 

032737 

010000 

177746 

IS: 

BIT 

#8IT12.CACHE 

WAIT TILL DONE 

005346 

001374 




BNE 

IS 


005350 

013702 

000000 



MOV 

0.R2 

SAVE ADDR. 0 CONTENTS 

005354 

005037 

000000 



CLR 

0 

O'S TO MAIN MEMORY LOCATION 0. 

005360 

005003 




CLR 

R3 

CLEAR ERROR FLAG 

ALL 1'S TO R4 

005362 

012704 

177777 



MOV 

#-1 ,R4 

005366 

013700 

000114 



MOV 

CTRAPV.RO 

SAVE VECTORS 

005372 

013701 

000116 



MOV 

C TRAPS. R1 


005376 

012737 

005524 

000114 


MOV 

#3S.CTRAPV 

#340.CTRAPS 

SETUP FOR CACHE TRAP 

005404 

012737 

000340 

000116 


MOV 


005412 

112737 

000002 

177750 


M0V8 

#2 .MAINT 

HODO ALLOWS CACHE UPDATES AND CLOCKING OF 

PARITY INFO TO INTERRUPT LOGIC ONLY DURING 

THE DESTINATION ACCESS OF AN INSTRUCTION. 

005420 

012737 

000015 

177746 


MOV 

#15. CACHE 

NO UC8 SO AS TO WRITE CACHE STORES 

005426 

005737 

040000 



TST 

40060 

UPDATE CACHE LOCATION 0000 WITH CORRECT 

PARITY STORAGE 

005432 

052737 

000100 

177746 


BIS 

#81 T06, CACHE 

ALLOW WRITE WRONG PARITY DATA TO LO t HI BYTE 
PARITY STORE. 

005440 

005737 

000000 



TST 

0 

READ UPDATE TO CACHE LOCATION 0000; 

WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 

005444 

042737 

000100 

177746 


BIC 

#81 T06. CACHE 

DISABLE WWPD 

005452 

005037 

177744 



CLR 

CM PE 

CLEAR CMPE AND PARITY DETECT LOGIC 

005456 

142737 




BICB 

(PC)*,i(PC)* 

ALLOW INT l ENABLE LOW CACHE (1ST ;DPM002 

005460 

000000 



CASH1 : 

.WORD 

0 

LOCATION LOADED BY THE TEST ;DPM002 

005462 

177746 




.WORD 

CACHE 

ADDRESS OF CACHE LOCATION .DPM002 

005464 

122727 




CMP8 

(PC)*. (PC)* 

WHICH TEST ;DPM002 

005466 

000002 




.WORD 

2 

TEST 2 IS TESTED FOR ;DPM002 

005470 

000000 



CASH2: 

.WORD 

0 

THIS LOCATION LOADED BY THE TEST ;DPM002 

005472 

001405 




SEQ 

2$ 

GO TO 2ND TEST SECTION IF 2ND TEST EXECUTING 

005474 

005737 

000000 



TST 

0 

READ HIT LO l HI BYTE PARITY CHECK GENERATORS 

WILL DETECT WRONG PARITY AND THE PARITY 

ERROR WILL BE CLOCKED TO INTERRUPT LOGIC 

005500 

000240 




NOP 


NEEDED FOR 11/44 

005502 

005203 




INC 

R3 

INDICATE THAT TRAP DID NOT OCCUR 

005504 

000410 




BR 

4$ 

BRANCH OVER STACK CORRECTION AND 2ND TEST SECTION 

005506 

052737 

000200 

177746 

2S: 

BIS 

#8IT07,CACHE 

ALLOW FOR ABORT 

005514 

011304 




MOV 

(R3),R4 

READ HIT LO l HI BYTE PARITY CHECK GENERATORS WILL 


DETECT WRONG PARITY USING HODO AND SOURCE MODE FOR READING LOCATION 0 WILL 
INHIBIT PARITY ERROR FROM BEING CLOCKED TO INTERRUPT LOGIC. HOWEVER. THE PARITY 
ERROR SIGNAL WILL CAUSE THE ABORT SIGNAL TO BE ASSERTED. THE ABORT SIGNAL WILL 
BECAUSE CMPE<15> TO BE SET. THIS INSTRUCTION SHOULD BE ABORTED 


2530 

005516 

000240 




NOP 


.•NEEDED IN AN 11/44 TO ALLOW 1 INSTRUCTION BEFORE ABORT 

2531 

005520 

005203 




INC 

R3 

.•INDICATE NO TRAP OCCURED 

2532 

005522 

000401 




BR 

4$ 

.•BRANCH OVER STACK CORRECTION 

2533 

005524 

022626 



3$: 

CMP 

(R6)*.(R6)* 

.•READJUST STACK DUE TO INTERRUPT 

2534 

005526 

005037 

177744 


4S: 

CLR 

CMPE 

.•CLEAR CMPE 

2535 

005532 

012737 

001015 

177746 


MOV 

#1015. CACHE 

.•DISABLE CACHE 

2536 

005540 

105037 

177750 



CLR8 

MAINT 

.•DISABLE MAINT. MODE 

2537 

005544 

010237 

000000 



MOV 

R2.0 

.•RESTORE LOCATION 0 

2538 

005550 

010037 

000114 



MOV 

RO.CTRAPV 

.•RESTORE CACHE INTERRUPT VECTORS 

2539 

005554 

010137 

000116 



MOV 

R1.CTRAPS 


2540 

005560 

052737 

000400 

177746 


BIS 

#81 T08 . CACHE 

.•BEFORE LEAVING TEST FLUSH CACHE TO ELIMINATE EFFECTS OF 


WWP 
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SEQUENCE 58 


2541 

005566 

032737 

010000 177746 

5S: BIT 

2542 

005574 

001374 


BNE 

2543 

005576 

000207 


RTS 

2544 




. DSA8L 

2545 




. SBTTL 

2546 




• • ************ *< 
• « 

2547 

005600 

011504 


CHKPAT : MOV 

2548 

005602 

043704 

005776 

BIC 

2549 

005606 

010410 


MOV 

2550 

005610 

011504 


MOV 

2551 

005612 

043704 

006000 

BIC 

2552 

005616 

020410 


CMP 

2553 

005620 

001402 


BEQ 

2554 

005622 

062716 

000002 

ADD 

2555 

005626 

000207 


1$: RTS 


#81 T 1 2 , CACHE ;WAIT TILL DONE 

5$ 

PC .-EXIT 

LS8 

SUBROUTINE TO PREPARE AND CHECK DATA PATTERN 


(R5).R4 
MASK1 ,R4 
R4 , (RO) 
CR5> ,R4 
MASK2.R4 
R4. (RO) 
IS 

#2,(SP) 

PC 


MOVE NEXT COUNT PATTERN TO R2 
USE MASKl PRE-LOADED FOR PROPER LOADING 
LOAD MAP REGISTER WITH COUNT PATTERN 
RELOAD PATTERN 

USE THE 2ND MASK TO CONSTRUCT EXPECTED VALUE 

COMPARE EXPECTED WITH RECEIVED 

BRANCH IF DATA IS OK 

FUDGE RETURN TO SHOW ERROR 

EXIT 



H 5 


CKKUAEO 

11/24/44 U8I MAP 

MACRO 

Ml 113 11 -JAN-82 

11:27 PAGE 51 

READ AN 

OCTAL NUMBER FROM THE 

TTY 




2556 






.S8TTL 

READ AN OCTAL 

2557 







2558 






•THIS ROUTINE 

WILL READ AN OC 

2559 






■•BINARY AND PUT THE NUMBER ON 

2560 






•CALL: 


2561 






* RDOCT 


2562 






* MOV 

(SP) ♦ .LOCATION 

2563 






★ 


2564 








2565 

005630 

011646 



SRDOCT: MOV 

(SP).-(SP) 

2566 

005632 

016666 

000004 

000002 


MOV 

4(SP).2(SP> 

2567 

005640 

010046 




MOV 

RO,- (SP) 

2568 

005642 

010146 




MOV 

R1 ,-(SP) 

2569 

005644 

010246 




MOV 

R2.-(SP) 

2570 

005646 

104407 



IS: RDLIN 


2571 

005650 

012600 




MOV 

(SP)*. RO 

2572 

005652 

005001 




CLR 

R1 

2573 

005654 

005002 




CLR 

P.2 

2574 

005656 

112046 



2S: MOVB 

(RO) ♦ , — < SP) 

2575 

005660 

001415 




BEQ 

3$ 

2576 

005662 

000241 




CL C 


2577 

005664 

006101 




ROL 

R1 

2578 

005666 

006102 




ROL 

R2 

2579 

005670 

000241 




CLC 


2580 

005672 

006101 




ROL 

R1 

2581 

005674 

006102 




ROL 

R2 

2582 

005676 

000241 




CLC 


2583 

005700 

006101 




ROL 

R1 

2584 

005702 

C06102 




ROL 

R2 

2585 

005704 

042716 

177770 



BIC 

#1 77770, (SP) 

2586 

005710 

052601 




BIS 

(SP1+.R1 

2587 

005712 

000761 




BR 

21 

2588 

005714 

005726 



3S: TST 

(SP)* 

2589 

005716 

010166 

000012 



MOV 

R1 , 12<SP) 

2590 

005722 

010237 

005736 



MOV 

R2, SHI OCT 

2591 

005726 

012602 




MOV 

(SPH.R2 

2592 

005730 

012601 




MOV 

(SP) ♦,R1 

2593 

005732 

012600 




MOV 

<SP)*,RO 

2594 

005734 

000002 




RTI 


2595 

005736 

000000 



SHIOCT: .WORD 

0 


1ST CHARACTER 


READ AN OCTAL NUMBER 
POP THE INPUTED NUMBER OFF STACK 
HIGH ORDER BITS ARE IN SHIOCT 

MAKE ROOM FOR THE 
OCTAL NUM8ER 
SAVE RO 
SAVE R1 
SAVE R2 

READ THE OCTAL NUMBER 
GET ADDRESS OF 
CLEAR R1 
CLEAR R2 

MOVE CHARACTER TO STACK 

IF ZERO. EXIT 

CLEAR THE CARRY BIT 

SHIFT MSB TO THE CARRY BIT 

SHIFT IT TO UPPER RECEIVER 

CLEAR THE CARRY BIT 

SHIFT MSB TO THE CARRY BIT 

SHIFT IT TO UPPER RECEIVER 

CLEAR THE CARRY BIT 

SHIFT MSB TO THE CARRY BIT 

SHIFT IT TO UPPER RECEIVER 

STRIP ALL BUT BINARY EQUIVALENT 

SET THE BINARY EQUIVALENT TO LOWER RECEIVER 

BRANCH BACK 

CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 

RESTORE R2 
RESTORE R1 
RESTORE RO 
RE TURN 

HIGH ORDER BITS GO HERE 


SEQUENCE 




SEQUENCE 60 
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DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 
DTMSG.DFMSG .-POINTER TO DATA VARIABLE ADDRESSES 
MMRLOU.MMRHI.UBRLOU.UBRHI.tTESTN.O ;DATA VARIABLES TO BE PRINTED 
0 .-THIS LOCATION HOLDS CHARACTERS INPUTED DURING THE TYPE ROUTINE 

0 .-THIS LOCATION STORES THE OUTPUT OF THE EXTRACTION ROUTINE 

0.77 .-LOCATIONS FOR STORING 22 BITS OF THE UBMAP REGISTER ADDRESS 

0,77 .-LOCATIONS FOR STORING ANOTHER UBMAP REGISTER ADDRESS 

0 .-LOCATION TO HOLD BIT TO FLOAT TO TEST DDWS STATUS 

0 ; PRE-LOADED BY THE TEST WITH THE 1ST BIT-MASK 

0 .-PRE-LOADED BY THE TEST WITH THE 2ND BIT-MASK 

AO 

2 .-SET RADIX TO BINARY REPRESENTAT ION 

1111111111111111 ;ALL BITS SET 
0000000000000000 ;ALL BITS CLEAR 
1010101010101010 ;ODD BITS SET, EVEN BITS CLEAR 
0101010101010101 .EVEN BITS SET, ODD BITS CLEAR 
0011001100110011 .-ALTERNATING PAIRS OF BITS SET 

0000111100001111 .-alternating groups of a bits set 

0000000011111111 .-LOWER BYTE SET, UPPER BYTE CLEAR 
8 .-SET RADIX BACK TO OCTAL 

0.0. 0.0.0 ;ALL NUMBERS ARE TO BE PRINTED IN OCTAL 

<CRLF>?UNIBUS MEMORY AVAILABLE = ? 

? SWR INPUT ? 

? K?<CRLF> 
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THIS DIAGNOSTIC 


2620 

006200 

200 

104 

111 

CPUMSG: 

•ASCIZ 

2621 

006261 

101 

103 

103 

TOMSG: 

.ASCII 

2622 

006344 

103 

101 

125 


.ASCIZ 

2623 

006421 

124 

110 

105 

NOMORE : 

.ASCII 

2624 

006512 

105 

122 

122 


.ASCIZ 

2625 

006607 

124 

110 

111 

BAD CPU: 

.ASCII 

2626 

006672 

104 

111 

101 


.ASCIZ 

2627 

006754 

111 

123 

040 

MRQUES: 

.ASCIZ 

2628 

007043 

040 

200 

000 

GMRMD1 : 

.ASCIZ 

2629 

007046 

104 

111 

101 

GMRMOD : 

.ASCIZ 

2630 

007140 

000 



CPUTYP: 

.BYTE 

2631 






.EVEN 

2632 





.-RESERVE 

REMAI 

2633 





.-THIS AREA MAY 

2634 

007142 

000000 

000000 

000000 

PATCH: 

.WORD 

2635 

007242 

000000 

000000 

000000 


.WORD 


11:27 PAGE 


J 

53 


SEQUENCE 


<CRLF>?DI AGNOST I C HAS DETERMINED THAT CPU IS AN 11/ 4?<CRLF> 
7ACCESSING MEMORY THROUGH THE FOLLOWING REGISTER(S)?<CRLF> 

7CAUSED TIME OUTS (THEY MIGHT BE UNEXPECTED) 7<fRLF> 

7THERE ARE STILL MORE ERRORS BUT WILL NOT BE TYPED. EACH?<CRLF> 
TERROR WILL BE COUNTED AND NUMBER PRINTED AT THE END-OF-PASS?<CRLF> 
7THIS DIAGNOSTIC IS DESIGNED FOR AN 11/24 OR 11/44. ?<CRLF> 
7DIAGNOSTIC DOES NOT INTERPRET CPU AS EITHER ONE.?<CRLF> 

? I S THERE A MAP REGISTER MODULE IN THIS CPU (Y OR <CR>)7 
7 ?<CRLF> .-PLACE FOR USER INPUT CHARACTER 

7DIAGNOSTIC CHECKS THIS MODULE - INSERT BEFORE RE-RUNNING?<CRLF> 

0 .-LOCATION TO STORE THE CPU TYPE NUMBER 

JING AREA FOR PERMANENT PATCHES 
GO BEYOND 10000. USE ONLY THAT AREA UP TO 7776. 

0 , 0 . 0 . 0 , 0 . 0 . 0 . 0 , 0 . 0 . 0 .°. 0 . 0 . 0 . 0 , 0 . 0 , 0 . 0 , 0 , 0 . 0 , 0 . 0 . 0 , 0 . 0 . 0 . 0 . 0.0 
0 . 0 . 0 . 0 . 0 , 0 , 0 , 0 . 0 . 0 . 0 , 0 , 0 . 0 , 0 , 0 . 0 , 0 . 0 . 0 . 0 , 0 , 0 . 0 . 0 . 0 , 0 . 0 , 0 . 0 . 0,0 
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PRE-TESTING SETUP 

2636 

2637 

2638 

2639 

2640 

2641 010000 

2642 010000 012737 000340 

2643 010006 012700 001100 

2644 01001? 012701 000021 

2645 010016 005020 

2646 010020 077102 

2647 010022 005037 020150 

2648 010026 012706 001100 

2649 010032 012700 010054 

2650 010036 012701 000005 

2651 010042 012030 

2652 010044 012730 000340 

2653 010050 077104 

2654 010052 000417 

2655 010054 020266 000020 

2656 010074 000036 023610 

2657 010112 013737 021644 

2658 010120 005037 001214 

2659 010124 112737 000001 

2660 010132 012737 000002 

2661 010140 012737 010166 

2662 010146 012746 000340 

2663 010152 012746 010160 

2664 010156 000006 

2665 010160 012737 000006 

2666 010166 012706 001100 

2667 010172 012737 000012 

2668 010200 005037 022076 

2669 010204 012737 010700 

2670 010212 012737 010700 

2671 010220 005227 177777 

2672 010224 001017 

2673 010226 104401 010234 

2674 010232 000414 

2675 010234 103 113 

2676 

2677 010264 005737 020150 

2678 010270 001140 

2679 010272 013746 000004 

2680 010276 012737 010470 

2681 010304 013746 000006 

2682 010310 012737 000340 

2683 010316 000007 

2684 010320 110037 007140 

2685 010324 105337 007140 

2686 010330 001021 

2687 010332 022737 177777 

2688 010340 001004 

2689 010342 012737 000176 

2690 010350 000403 

2691 010352 012737 177570 

2692 010360 112737 000064 


(c 5 
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SEQUENCE 62 


SBTTL PRE-TESTING SETUP 
START Of TEST CODE 


=10000 


1 77776 

START: 

MOV 

MOV 

MOV 


11$: 

CLR 

SOB 

CLR 

MOV 

MOV 

MOV 


12$: 

MOV 

MOV 

SOB 

BR 

000022 

13$: 

.WORD 

000024 


.WORD 

021636 

14$: 

MOV 

CLR 

001113 


MOVB 

022070 


MOV 

000010 


MOV 

MOV 

MOV 

RTT 

022070 

15$: 

MOV 


16$: 

MOV 

000010 


MOV 

CLR 

001104 


MOV 

001106 


MOV 

INC 

8NE 

TYPE 

BR 

113 

17$: 

.ASCIZ 

.EVEN 


18$: 

TST 

BNE 

MOV 

000004 


MOV 

MOV 

000006 


MOV 

MFPT 

MOVB 

DECS 

BNE 

177570 


CMP 

BNE 

001136 


MOV 

BR 

001136 

1000$: 

MOV 

C06255 

1010$: 

MOVB 


START TEST CODE AT ADDRESS 10000 (20 
LOCK OUT ALL INTERRUPTS 
FIRST LOCATION TO BE CLEARED 
Rl.-MOVE LOOP COUNTER TO R1 
CLEAR MEMORY LOCATION 
SUBTRACT 1 AND BRANCH IF NOT DONE YET 
INITIALIZE PASS COUNT 
INI TILAIZE STACK 
MOVE ADDRESS OF VECTORS TO RO 
DO 5 LOADS 

MOVE VECTOR TO LOCATION 
MOVE PRIORITY 7 TO NEXT LOCATION 
BRANCH BACK IF NOT DONE YET 

QDAKirU AWCD hATA unortc 

sscope.iotvec,iotvec+2.$error,emtvec # entvec*2,strap,trapve 

TRAPVE*2,$PWRDN,PWRVEC.PWRVEC*2,SRTRN,T8ITVE,TBITVE*2 


#340, PS 
#$CMTAG.RO 
#<$TKS-$CMTAG>/2 
(RO) + 

R1 ,11$ 

SPASS 
#STACK , SP 
#13$, RO 
#5 , R 1 

(R0)+.3(R0)+ 

#340,a(R0)+ 

R1 ,12$ 

ui 


SENDCT.SEOPCT 
$ESCAPE 
#1 ,$ERMAX 
#RTI ,$RTRN 
#16$.RESVEC 
#340, -(SP) 
#15$.-<SP> 

#RTT,$RTRN 
#STACK.SP 
#RESVEC*2,RESVEC 
ST8I T 

#TST1 ♦2,$LPADR 
#TST1*2,$LPERR 
#-1 
18$ 

,17$ 

18 $ 

•CKKUAE 11/24/44 

$PASS 

8 $ 

4 ,-(SP) 

# 2$. 4 

6,-(SP) 

#340,6 

RO.CPUTYP 

CPUTYP 

1 $ 

#-1,177570 

1006$ 

#1 76.SWR 
1010 $ 

#1 77570,SWR 
#'4,CPUMSG*55 


SETUP END-OF -PROGRAM COUNTER 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
SET $RTRN TO AN RTI 
MOVE 16$ (FAILURE) TO RESVEC 
MOVE PRIORITY 7 TO STACK 
MOVE 15$ (SUCCESS) TO THE STACK 
TRY TO DO AN RTT 

RTT IS LEGAL— SET SRTRN TO AN RTT 

RESET STACK IF NECESSARY 

RESET TRAP CATCHER 

CLEAR ’7“ BIT SWITCH 

SETUP SLPADR 

SETUP SLPERR 

FIRST TIME? 

BRANCH IF NOT 
TYPE THE TEST TITLE 
BRANCH OVER ASCIZ 
U8I MAP' 

IS THIS THE FIRST PASS? 

BRANCH IF NOT 
SAVE TIMEOUT VECTOR 
TIMEOUTS TO 104$ 

SAVE PS VECTOR 
PRIORITY 7 

DETERMINE PROCESSOR TYPE 
MOVE THE CPU NUMBER TO CPUTYP 
MAKE THE 11/44 VALUE ZERO 
BRANCH TO NEXT TEST IF NOT AN 11/44 
SEE IF SSWR IS TO BE USED 
BRANCH TO SETUP FOR HARDWARE SWR 
SET UP FOR SSWR 
BRANCH 

SET UP FOR HARDWARE SWITCH REGISTER 
MOVE ASCII 4 TO LOCATION IN MESSAGE TO 


DPM002 

DPM002 

DPM002 

DPH002 

DPM002 

PRINT 
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SEQUENCE 

PRE-TESTING SETUP 







2693 

010366 

104401 

006200 



TYPE 

.CPUMSG 

TYPE THE CPU TYPE HEADER 

2694 

010372 

000446 




BR 

6S 

CONTINUE 

2695 

010374 

122737 

000002 

007140 

1$: 

CMPB 

A2.CPUTYP 

SEE IF THIS IS AN 11/24 

2696 

010402 

001034 




BNE 

3$ 

BRANCH TO FATAL ERROR MESSAGE PRINTING IF NOT 

2697 

010404 

012737 

000176 

001136 


MOV 

#JSSWR,SWR 

SETUP SOFTWARE SWITCH REGISTER ;DPM002 

2698 

010412 

112737 

000062 

006255 


MOVB 

#’2.CPUMSG+55 

MOVE ASCII 2 TO LOCATION IN MESSAGE TO PRINT 

2699 

010420 

104401 

006200 



TYPE 

-CPUMSG 

TYPE THE CPU TYPE HEADER 

2700 

010424 

105737 

020163 



TSTB 

SENVM 

IS APT SIZING 

2701 

010430 

100427 




BMI 

6$ 

BRANCH IF NO 

2702 

010432 

012737 

000176 

001136 


MOV 

#ISSWR.SWR 

SETUP SOFTWARE SWITCH REGISTER 

2703 

010440 

005737 

000176 



TST 

SSSWR 

SEE IF SWR IS NON-ZERO 

2704 

010444 

001021 




BNE 

6$ 

BRANCH IF SO 

2705 

010446 

104401 

006161 



TYPE 

,NEWSWR 

TYPE: ’SWR INPUT ' 

2706 

010452 

104410 



' 

RDOCT 


GO READ USER OCTAL INPUT 

2707 

010454 

012637 

000176 



MOV 

(SP)+. SSSWR 

MOVE NEW CONTENTS TO THE SOFTWARE SWR LOCATION 

2708 

010460 

001013 




BNE 

6$ 

BRANCH IF NON-ZERO 

2709 

010462 

005237 

000176 



INC 

SSSWR 

MAKE SWR NON-ZERO FOR POSSIBLE NEXT RUN 

2710 

010466 

000410 




BR 

6S 

CONTINUE 

2711 

010470 

062706 

000004 


2$: 

ADD 

#4,SP 

CLEAN STACK AFTER TIMEOUT 

2712 

010474 

005237 

020142 


3$: 

INC 

SMSGTY 

TELL APT THIS IS A FATAL ERROR 

2713 

010500 

104401 

006607 


4$: 

TYPE 

.BADCPU 

TYPE THE BAD CPU MESSAGE 

2714 

010504 

000000 




HALT 


FATAL ERROR - THIS DIAGNOSTIC IS WRITTEN 

2715 








FOR 11/24 AND 11/44 PROCESSORS ONLY 

2716 

010506 

000774 




BR 

4S 

DON’T ALLOW CONTINUE 

2717 

010510 

012637 

000006 


61: 

MOV 

(SP)+,6 

RESTORE TIMEOUT PS 

2718 

010514 

012637 

000004 



MOV 

(SP )+. 4 

RESTORE TIMEOUT VECTOR 

2719 

010520 

013746 

1 72346 



MOV 

KIPAR3,-(SP) 

SAVE PAR3 

2720 

010524 

012737 

000400 

172346 


MOV 

#400,KIPAR3 

START WITH ADDRESS 40000 

2721 

010532 

012704 

060000 



MOV 

#60000, R4 

ADDRESS PAR3. OFFSET=0 

2722 

010536 

012705 

040222 



MOV 

#40222.R5 

DATA TO LOAD TO 40000 

2723 

010542 

010514 



7S: 

MOV 

R5, (R4) 

MOVE DATA TO LOCATION 

2724 

010544 

062705 

010000 



ADD 

#10000, R5 

MOVE DATA UP 10000 

2725 

010550 

062737 

000100 

172346 


ADD 

#1 00.KIPAR3 

MOVE ADDRESS UP 10000 

2726 

010556 

022737 

007600 

172346 


CMP 

#7600,KIPAR3 

SEE IF ALL DONE YET 

2727 

010564 

001366 




BNE 

7S 

BRANCH BACK IF NOT 

2728 

010566 

012637 

172346 



MOV 

<SP) + , JCIPAR3 

RESTORE PAR 3 

2729 

010572 

105737 

020163 


8S: 

TSTB 

SENVM 

IS APT SIZING 

2730 

010576 

100003 




BPL 

LOOP 

BRANCH IF NOT 

2731 

010600 

012737 

020164 

001136 


MOV 

#$SUREG,SWR 

USE APT SWITCH REGISTER 

2732 

010606 

012737 

0033 7? 

000250 

LOOP: 

MOV 

#MMTRAP,HMVEC 

LOAD MEMORY MANAGEMENT TRAP SERVICE ROUTINE ADDRESS 

2733 

010614 

012737 

000340 

000252 


MOV 

#340,MMVEC*2 

SET PRIORITY SEVEN 

2734 

010622 

012737 

003222 

000004 


MOV 

#CPUER.ERRVEC 

LOAD CPU TRAP SERVICE ROUTINE AD DR 

2735 

010630 

012737 

000340 

000006 


MOV 

#340,ERRVEC«-2 

SET PRIORITY SEVEN 

2736 

010636 

005037 

001326 



CLR 

CPUEXP 

NOT EXPECTING ANY CPU ERRORS 

2737 

010642 

005037 

177572 



CLR 

MMRO 

START IN 16 BIT MAPPING 

2738 

010646 

005037 

172516 



CLR 

MMR3 

DISABLE MAP AND 22-BIT MAPPING 

2739 

010652 

012700 

177777 



MOV 

#-1,R0 

NEGATIVE ONE USED TO INITIALIZE FI AGS 

2740 

010656 

010037 

003224 



MOV 

RO, CPF LAG 

INITIALIZE FLAGS 

2741 

010662 

010037 

003032 



MOV 

RO,TOFLAG 

INITIALIZE FLAGS 

2742 

010666 

010037 

003374 



MOV 

RO.MMFLAG 

INITIALIZE FLAGS 

2743 

010672 

010037 

177766 



MOV 

RO.CPUERR 

CLEAR CPU ERROR REGISTER 


63 



SEQUENCE 64 
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S8TTL TEST t 1 - MAP REGISTER RESPONSE TEST 

•********************t******************************»*»***»***** 

iTEST 1 MAP REGISTER RESPONSE TEST 

* THIS TEST IS USED TO ENSURE THAT ALL THE UNIBUS MAP REGISTERS 

* CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING OUT. 

* THE ADDRESSES OF ANY MAP REGISTERS THAT TIME OUT WIIL BE REPORTED 

* AND. AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 

* BE GIVEN. 


****************** 


010676 

010676 000004 
010700 004737 
010704 011122 

2754 010712 012737 

2755 010720 105737 

2756 010724 001435 

2757 010726 005037 

2758 010732 013702 

2759 010736 005737 

2760 010742 001426 

2761 010744 105737 

2762 010750 100004 

2763 010752 005237 

2764 010756 000000 

2765 010760 000764 

2766 010762 104401 

2767 010766 104406 

2768 010770 112637 

2769 010774 104401 

2770 011000 122737 

2771 011006 001404 

2772 011010 104401 

2773 

2774 011014 000000 

2775 011016 000745 

2776 011020 012700 

2777 011024 012703 

2778 011030 005037 

2779 011034 012737 

2780 011042 011002 

2781 011044 032777 

2782 011052 001403 

2783 011054 005737 

2784 011060 001370 

2785 011062 005720 

2786 011064 077312 

2787 011066 012737 

2788 011074 012737 

2789 011102 005737 

2790 011106 001405 

2791 011110 005337 

2792 011114 005337 

2793 011120 104004 


TST1 : 


005166 

011042 

000001 


003030 

007140 

000004 


001320 

170200 

001320 


IS: 

020162 



020142 



006754 


2$: 

007043 

007043 

000131 

007043 


007046 



170200 

000100 


3$: 

001320 

011042 

001106 

2 OS: 

001000 

1 70064 


001320 


4S: 

003222 

000004 


011020 

001320 

001106 


001110 

001320 




SCOPE 


JSR 

PC. PRETST 

.WORD 

TST2.20S, 1 

MOV 

#TIME OUT, ERRVEC 

TSTB 

cputyp 

BEO 

3$ 

CLR 

ERRCNT 

MOV 

MAPL0.R2 

TST 

ERRCNT 

BEO 

3S 

TSTB 

SENV 

BPL 

2$ 

INC 

HALT 

SMSGTY 

BR 

IS 

TYPE 

RDCHR 

.MRQUES 

MOVB 

(SP)*,GMRMD1 

TYPE 

,GMRHD1 

CMP8 

#’ Y.GMRMD1 

BEO 

3S 

TYPE 

.GMRMOD 

HALT 

BR 

1$ 

MOV 

fMAPLO.RO 

MOV 

#100.R3 

CLR 

ERRCNT 

MOV 

#20S. SLPERR 

MOV 

(R0).R2 

BIT 

#8IT09,9SWR 

BE a 

4S 

TST 

ERRCNT 

BNE 

20% 

TST 

(R0) + 

SOB 

R3.20S 

MOV 

#CPUER. ERRVEC 

MOV 

#3S. SLPERR 

TST 

ERRCNT 

BEQ 

TST2 

DEC 

serttl 

DEC 

ERRCNT 

ERROR 

+4 


GO SET UP PRETEST DATA 

DATA USED BY PRETST 

LOAD ERRVEC WITH ROUTINE ADDRESS 

TEST TO SEE WHICH CPU IS RUNNINC THIS DIAGNOSTIC 

BRANCH AROUND MAP REGISTER EXISTENCE CHECK IF 11/44 

CLEAR THE ERROR COUNTER 

READ FIRST MAP REGISTER TO R2 

SEE IF THERE WERE ANY ERRORS 

BRANCH TO CHECK THEM ALL F NONE, THEY ARE IN THIS 11/24 
ARE WE RUNNING UNDER APT 
BRANCH IF NOT 

TELL APT THIS IS A FATAL ERROR 

HALT - FATAL ERROR 

TRY AGAIN - RESTART REQUESTED 

ASK USER IF THERE ARE MAP REGISTERS IN THIS 11/24 

GO READ USER INPUT 

MOVE THE CHARACTER TO THE PRINTING LOCATION 
TYPE THE CHARACTER 
SEE IF THIS WAS A ’Y’ 

BRANCH AROUND FATAL MESSAGE IF EQUAL TO A *Y’ 

TYPE: ’DIAGNOSTIC CHECKS THIS MODULE - INSERT 
’BEFORE RE-RUNNING' 

FATAL ERROR - WAIT FOR USER ACTION 

TRY AGAIN - RESTART REQUESTED 

PUT FIRST NAP REGISTER ADDR IN RO 

TEST ALL MAP REGISTERS 

CLEAR THE ERROR COUNTER 

MAKE SURE SLPERR IS POINTING AT 20S 

READ MAP REGISTERS TO R 2 

SEE IF LOOP ON ERROR IS SET 

BRANCH AROUND SETUP IF NOT 

SEE IF AN ERROR OCCURED 

no am ru RArr if cn 

INCREMENT RO TO NEXT REGISTER LOCATION 
DO ALL OF THEM 

RESTORE CPU TRAP SERVICE ROUTINE ADDRESS TO ERRVEC 

MOVE 3$ TO LOOP ON ERROR FOR ERROR *4 BELOW 

SEE IF THERE WERE ANY ERRORS 

;G0 TO NEXT TEST IF NO ERRORS 

DON’T COUNT SUMMARY AS AN ADDITIONAL ERROR 

DECREMENT ERRCNT FOR SAME REASON 

SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
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TEST # 2 - BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
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SBTTL TEST # 2 - BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 

* TEST 2 BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 

* THIS TEST WILL RUN 7 BIT PATTERNS THROUGH BOTH WORDS OF 40 UNIBUS 

* MAP REGISTER LOCATIONS MAPLOO - MAPL37, USING TWO MAJOR PASSES. 

* IT WILL TEST THE LOWER 16 BITS ON THE FIRST PASS. AND THE UPPER 

* 6 BITS ON THE SECOND. THIS TEST WILL MAKE SURE THE REGISTER CAN 

* CLEAR, AND THEN RUN 6 BIT PATTERNS THROUGH EACH UNIBUS MAP REGISTER. 

* IF THE DATA PATTERN RECEIVED DOES NOT MATCH THE EXPECTED PATTERN. 

* THEN THE MAP REGISTER ADDRESS. DATA RECEIVED, PATTERN LOADED. AND 

* PATTERN EXPECTED ARE REPORTED. AT THE END OF EACH OF THE TWO MAJOR 

* PASSES. A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN DETERMINE 

* IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 


011122 


TST2: 


011122 

000004 




SCOPE 


011124 

004737 

005166 



JSR 

PC. PRETST 

011130 

011444 

011254 

000002 


.WORD 

TST3.20S.2 

2809 011136 

005037 

001320 



CLR 

ERRCNT 

2810 011142 

012737 

011254 

001106 

IS: 

MOV 

#20S.$LPERR 

2811 011150 

012700 

170200 



MOV 

#MAPLOO.RO 

2812 011154 

005037 

005776 



CLR 

MASK1 

2813 011160 

012737 

000001 

006000 


MOV 

#1 .MASK2 

2814 011166 

012701 

000040 


2S: 

MOV 

#40. R1 

2815 011172 

012702 

000007 


3S: 

MOV 

#7.R2 

2816 011176 

012705 

006102 



MOV 

#PATRNS,R5 

2817 011202 

004737 

005600 


4S : 

JSR 

PC . CHKPAT 

2818 011206 

000435 




BR 

7$ 

2819 011210 

011003 




MOV 

<R0).R3 

2820 011212 

011537 

001 1 74 



MOV 

(R5), STMPO 

2821 011216 

011546 




MOV 

(R5).-(SP> 

2822 011220 

004737 

003650 



JSR 

PC.PATEXT 

2823 011224 

010346 




MOV 

R3.-(SP) 

2824 011226 

004737 

003624 



JSR 

PC.DATEXT 

2825 011232 

043737 

005776 

001 1 74 


BIC 

MASK 1, STMPO 

2826 011240 

010046 




MOV 

RO.-(SP) 

2827 011242 

013746 

172356 



MOV 

KIPAR7,-(SP> 

2828 011246 

004737 

003674 



JSR 

PC. ADREXT 

2829 







2830 011252 

000403 




BR 

5S 

2831 011254 

004737 

005600 


20$: 

JSR 

PC, CHKPAT 

2832 011260 

000401 




BR 

6$ 

2833 011262 

104203 



5S: 

ERROR 

♦203 

2834 011264 

032777 

001000 

167644 

6S: 

BIT 

#81 T9.3SWR 

2835 011272 

001370 




BNE 

20$ 

2836 011274 

012737 

011172 

001106 


MOV 

#3$,SLPERR 

2837 011302 

005725 



7S : 

TST 

(R5^ 

2838 011304 

077242 




SOB 

R2.4S 

2839 011306 

062700 

000004 



ADD 

#4,R0 

2840 011312 

077151 




SOB 

R1.3S 

2841 011314 

005737 

001320 



TST 

ERRCNT 

2842 011320 

001416 




BEO 

9$ 

2843 011322 

012737 

011142 

001106 


MOV 

#1S.$LPERR 

2844 011330 

005337 

001110 



DEC 

SERTTL 

2845 011334 

005337 

001320 



DEC 

ERRCNT 


GO SET UP PRETEST DATA 

DATA USED BY PRETST 

CLEAR THE ERROR COUNT LOCATION 

SETUP 2 OS AS LOOP ON ERROR INDICATOR (IF NOT ALREADY) 

MOVE STARTING ADDRESS OF LOWER 16 BITS REGISTER TO RO 

MOVE 'O’ TO MASK1 

MOVE *1’ TO MASK2 

DO 40 REGISTERS LOOP COUNTER 

MOVE PATTERN LOOP COUNTER TO R2 

MOVE PATTERN START TO R5 

GO CHECK PATTERN 

RETURN IS HERE IF DATA IS OK 

READ BAD MAP REGISTER DATA INTO R3 

MOVE PATTERN TO STMPO 

MOVE PATTERN TO STACK FOR SUBROUTINE USE 

GO SET DATA INTO PATTOR AND PATAND 

MOVE BAD DATA TO STACK FOR SUBROUTINE USE 

SUBROUTINE TO LOAD DATAOR AND DATAND 

FORM INPUT PATTERN FOR ERROR PRINTING 

PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE 

PUT PAR CONTENTS ON STACK FOR ADREXT SUBROUTINE 

GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

AND FORM A PHYSICAL 22-BIT ADDRESS 

BRANCH OVER LOOP ON ERROR SECTION 

GO TO SUBROUTINE TO CHECK PATTERN 

RETURN IS HERE IF DATA IS OK 

THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
SEE IF LOOP ON ERROR IS SET 
LOOP BACK IF SO 

MOVE 3$ TO LOOP ON ERROR INDICATOR 

POINT R5 TO NEXT PATTERN 

DECREMENT LOOP COUNTER 

POINT TO NEXT MAP REGISTER UNDER TEST 

DECREMENT LOOP COUNTER AND 

SEE IF THERE WERE ANY ERRORS 

BRANCH IF NO ERRORS 

MOVE IS TO LOOP ON ERROR FOR ERROR +6 OR *7 BELOW 
SUMMATION ERROR NOT COUNTED AS ANOTHER ERROR 
SAME AS ABOVE 


L 
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2846 011340 

022700 

170402 



2847 

011344 

001402 




2848 

011346 

104006 




2849 011350 

000405 




2850 

011352 

104007 



8S : 

2851 

011354 

000433 



9S : 

2852 

011356 

022700 

' 70402 


2853 

011362 

001430 




2854 

011364 

012737 

011254 

001106 

10$ 

2855 

O 1 1372 

012700 

170202 



2856 011376 

012737 

177700 

005776 


2857 01140; 

012737 

177700 

006000 


2858 

011412 

005037 

001254 



2859 

011416 

005037 

001246 



2860 011422 

012737 

177777 

001252 


2861 

011430 

012737 

177777 

001242 


2862 

011436 

005037 

001320 



2863 

011442 

000651 
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NAP REGISTERS 


CAP 

#NAPH37*4.R0 

BE 3 

8$ 

ERROR 

♦6 

BR 

10$ 

ERROR 

♦ 7 

BR 

TST3 

CNP 

#NAPH37*4.R0 

BEO 

TST3 

NOV 

*20$.$LPERR 

NOV 

•NAPHOO.RO 

NOV 

#1 77700. NASK1 

NOV 

#1 77700. NASK2 

CLR 

PATTOR 

CLR 

DATAOR 

NOV 

#-1 .PATAND 

NOV 

#-1 .DATAND 

CLR 

ERRCNT 

BR 

2$ 


SEQUENCE 


SEE IF THIS PASS WAS UPPER 6 BITS 
30 SERVICE UPPER 6 BITS ERROR IF SO 
SUMNARY OF BIT PATTERN FAIL JRES, LOWER 16 BITS 
GO SET UP DATA FOR TESTING UPPER 6 BITS 
SUNNARY OF BIT PATTERN FAILURES, UPPER 6 BITS 
;G0 TO NEXT TEST - LOWER 16 BITS ALREADY TESTED 
SEE IF THIS PASS WAS FOR THE UPPER 6 BITS 
; GO TO NEXT TEST IF IT WAS 
RESET LOOP ON ERROR TO 20$ 

WOVE STARTING ADDRESS OF UPPER 6 BITS REGISTER TO RO 

WOVE 1ST NASA TO NASK1 

WOVE 2ND NASA TO NASK2 

CLEAR PATTOR FOR NEXT PASS 

CLEAR DATAOR FOR NEXT PASS 

WOVE -1 TO PATAND FOR NEXT PASS 

NOVE -1 TO DATAND FOR NEXT PASS 

CLEAR ERROR COUNT FOR NEXT PASS 

GO REACCONPLISH TEST FOR UPPER 6 BITS 
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TEST # 3 - DUAL ADDRESS LOADS l READS NAP REG’S 
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SBTTL TEST # 3 - DUAL ADDRESS LOADS l READS NAP REG'S 
-******************************* ********************** 

•TEST 3 DUAL ADDRESS LOADS i READS NAP REG'S 


THIS TEST ENSURES THAT ONLY ONE UNI BUS NAP REGISTER IS LOADED 
DURING A * 7NOV fDATA.MAPREG" INSTRUCTION. ALL NAP REGISTERS 
ARE CLEARED AND ONE REGISTER AT A TINE. STARTING WITH NAPLOO. 
IS LOADED WITH A -1. THEN. ALL NAP REGISTERS ARE READ, 
STARTING WITH NAPH37, AND VERIFIED TO BE ZERO. ANY REGISTER 
THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT NATCH THAT 
OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
END OF THE TEST A SUNNARY OF ALL DUALED REGISTERS IS GIVEN. 


01 1444 TST3: 



011444 

000004 




SCOPE 





011446 

004737 

005166 



JSR 

PC.PRETST 


GO SET UP PRETEST DATA 


011452 

011762 

011616 

000003 


.WORD 

TST4,20$,3 


DATA USED BY PRETST 

2877 

011460 

042737 

000001 

177572 


BIC 

#1 ,NNR0 


TURN OFF NENORY NANAGENENT 

2878 

011466 

012700 

170200 



NOV 

ANAPLOO.RO 


LOAD ADDRESS OF NAPLOO IN RO 

2879 

011472 

012702 

177700 



NOV 

#1 77700. R2 


SET UP XOR DATA 

2880 

011476 

012701 

170400 


1$: 

NOV 

#HAPH37*2,R1 


PUT ADDRESS OF NAPH37+2 IN R1 

2881 

011502 

012737 

000077 

001 1 74 


NOV 

#77,$TNP0 


SET UP TEST PATTERN IN $TNPO 

2882 

011510 

004737 

002772 



JSR 

PC.CLRNAP 


CLEAR ALL NAP REGISTERS FOR TEST 

2883 

011514 

012703 

000100 



NOV 

A100.R3 


SET UP LOOP COUNTER FOR TESTING 40 REGISTERS. 2 WORDS EACH 

2884 

011520 

005037 

172516 



CLR 

NNR3 


CLEAR NNR3 

2885 

011524 

012704 

000100 


2 S: 

NOV 

A100.R4 


SET UP LOOP COUNTER FOR CHECKING 40 REGISTERS, 2 WORDS EACH 

2886 

011530 

074237 

001174 



¥0R 

R2.JTNP0 


REVERSE BIT STATES OF $TNPO IN BITS 7 TO 15 

2687 

011534 

013710 

001174 



NOV 

STNPO.(RO) 


LOAD NAP REGISTER UNDER TEST 

2888 

011540 

012701 

1 70400 



NOV 

#NAPH37*2,R1 


PUT ADDRESS OF NAPH37+2 IN R1 

2889 

011544 

005741 



3J : 

TST 

— (R 1 ) 


SEE IF NAP REGISTER IS ZERO 

2890 

011546 

001435 




BEO 

7$ 


GO SEE IF NORE REGISTERS TO TEST IF = 0 

2891 

011550 

005011 




CLR 

(R1J 


CLEAR THE FAILED LOCATION 

2892 

011552 

020100 




CNP 

R1 ,R0 


SEE IF NON-ZERO REGISTER ADDRESS NATCHES ADDRESS LOADED 

2893 

011554 

001432 




BEQ 

7$ 


GO SEE IF NORE REGISTERS TO TEST IF SO 

2894 

011556 

012137 

001202 



NOV 

(R1)*,$THP3 


HOVE FAULTY DATA TO $THP3 t PREPARE R1 FOR POSSIBLE LOOP 

2895 

011562 

013746 

001202 



NOV 

STNP3.-(SP) 


HOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 

2896 

011566 

013746 

172350 



NOV 

KIPAR4.-(SP> 


HOVE PAR4 TO STACK FOR SUBROUTINE USE 

2897 

011572 

004737 

003674 



JSR 

PC.ADREXT 


GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

2898 









AND FORH A PHYSICAL 22-BIT ADDRESS 

2899 

011576 

013746 

172356 



NOV 

K1PAR7, -<SP) 


PUT PAR ON STACK FOR DATEXT SUBROUTINE USE 

2900 

011602 

010146 




NOV 

R1,-(SP> 


PUT VIRTUAL ADDRESS ON STACK FOR DATEXT SUBROUTINE USE 

2901 

011604 

004737 

003624 



JSR 

PC.DATEXT 


SUBROUTINE TO LOAD DATAOR AND DATAND 

2902 

011610 

010037 

005770 



NOV 

R0.EADRS2 


HOVE ADDRESS IN RO TO EADRS2 FOR ERROR CALL 

2903 

011614 

000405 




BR 

5$ 


BRANCH OVER LOOP ON ERROR SECTION 

2904 

011616 

013710 

001174 


20$: 

NOV 

STNPO, (RO) 


LOAD NAP REGISTER UNDER TEST 

2905 

011622 

005711 




TST 

( R 1 ) 


SEE IF NAP REGISTER IS ZERO 

2906 

011624 

001402 




BEQ 

6$ 


GO SEE IF LOOP ON ERROR IS STILL SET IF ZERO 

2907 

011626 

005011 




CLR 

(R1 ) 


CLEAR THE FAILED LOCATION 

2908 

011630 

104202 



5$: 

ERROR 

•202 


DUAL ADDRESSING ERROR IN THE UNIBUS NAP 

2909 

011632 

032777 

001000 

167276 

6$: 

BIT 

#81 T09.9SWR 


SEE IF LOOP ON ERROR IS SET 

2910 

011640 

001366 




BNE 

20$ 


BRANCH 3ACK IF SO 

2911 

011642 

077440 



7$: 

S08 

R4 ,3$ 


BRANCH IF NORE REGISTERS TO CHECK 

2912 

011644 

005020 




CLR 

(R0>* 


CLEAR THE REGISTER JUST TESTED AND POINT TO NEXT REGISTER 

2913 

011646 

005303 




DEC 

R3 


DECREHENT LOOP COUNTER AND 

2914 

011650 

001325 




BNE 

2$ 


BRANCH IF NORE REGISTERS TO TEST 

2915 

011652 

005737 

001320 



TST 

ERRCNT 


SEE IF THERE WERE ANY ERRORS 
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2916 011656 001405 

2917 011660 005337 001110 

2918 011664 005337 001320 

2919 011670 104005 


11 -JAN-82 11:27 
'S 

BEQ RE L C 22 
DEC SERTTL 
DEC ERRCNT 
ERROR *5 


D 6 
PAGE 57-1 


GO TO NEXT SECTION IF NO ERRORS 
DON’T COUNT ERROR *5 AS ANOTHER ERROR 
SAME AS ABOVE 

SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 



CKKUAEO 1V24/44 UBI MAP MACRO 

TEST # 3 - DUAL ADDRESS LOADS ft READS 


Mil 13 11 -JAN-82 

MAP REG'S 


MOV 


2920 

011672 

104414 



RELC22 

2921 






2922 

2923 

2924 

011674 

012700 

077406 



011700 

012701 

172300 



2925 

011704 

012702 

000010 


IS: 

2926 

011710 

010021 



2927 

011712 

077202 




2928 

011714 

005000 




2929 

011716 

012701 

172340 



2930 

011722 

012702 

000006 



2931 

011726 

010021 



2 S: 

2932 

011730 

062700 

000200 



2933 

01 1 734 

077204 




2934 

011736 

012721 

170000 



2935 

011742 

012721 

177600 



2936 

011746 

012737 

000001 

177572 


2937 

011754 

012737 

000020 

172516 


?938 





; * 

2939 





; * 

2940 





; * 

2941 





; * 


11:27 PAGE 


#77406,R0 


E 

58 


MOV #KIPDRO,R1 

MOV #8..R2 

MOV RO, (R1 ) ♦ 

SOB R2.1S 

CLR RO 

MOV #KIPARO,R1 

MOV #6.R2 

MOV RO. (R1 ) ♦ 

ADD #2o0,R0 

SOB R2.2S 

MOV #170000, (R1) 

MOV #1 77600, (R1) 

MOV #BJTO,MMRO 

MOV #8IT4.MMR3 

AT THIS POINT 22- BIT 
IS ENABLED, WITH THE 
KIPAR6 IS MAPPED TO 
KIPAR7 IS MAPPED TO 


RESTORE THE T BIT TO ITS CONDITION 
BEFORE THE LAST TEST 
MAKE THE KERNEL I-SPACE PAGES ALL 
4K. UPWARD EXPANDABLE. READ/WRITE 
MOVE ADDRESS OF KIPDRO TO R1 
LOAD 8 PDR'S 

KERNEL I-SPACE PAGE X KlPDRX 
SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
CLEAR RO 

MOVE ADDRESS OF KIPARO TO R1 
LOAD FIRS! 6 PAR'S 
MAP KIPARX TO NEXT PHYSICAL PAGE 
MAP RO TO NEXT PAGE 

SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
MAP KIPAR6 TO UNIBUS 
MAP K I PAR 7 TO I/O PAGE 
ENABLE FULL 18-BIT MAPPING 
ENABLE 22-BIT MAPPING 
RELOCATION FROM MEMORY MANAGEMENT 
KIPAR'S MAPPED TO PHYSICAL 0-24K. 

THE UNI BUS (170000) AND 
THE I/O PAGE (177600). 


SEQUENCE 



SEQUENCE 70 


F 6 

CKKUAEO 1 i/24/U L)8I MAP MACRO Ml 1 1 3 11-JAN-82 11:27 PAGE 59 

TEST # 4 - MAP REGISTER AODRESS DECODE TEST 

2952 .S8TTL TEST # 4 - MAP REGISTER ADDRESS DECODE TEST 


West a map register address decode test 

* THIS TEST TRIES TO VERIFY THAT NONE OF THE INPUTS TO THE ADDRESS 

* DECODER FOR THE UNIBUS MAP REGISTERS IS STUCK TRUE. KIPAR6 IS 

* SET UP TO HOLD 1 77702 AND R4 HAS THC VIRTUAL ADDRESS TO SELECT 

* MAPLOO, THROUGH KIPAR6. THE TEST THEN CHANGES ONE BIT AT A TIME 

* IN PAR 6 SO THAT IT SHOULD NEVER REFERENCE MAPLOO. IF IT DOES, AN 

* ERROR IS REPORTED. 



011762 




TST4: 






01 1 762 

000004 




SCOPE 





01 1 764 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 



011770 

012242 

012126 

000004 


.WORD 

TST5,20$,4 

DATA USED BY PRETST 


2953 

011776 

013737 

172354 

001200 


MOV 

KJPAR6.STMP2 

SAVE KIPAR6 FOR RESTORATION LATER 


2954 

012004 

012737 

177702 

172354 


MOV 

#1 77702, KIPAR6 

PUT MAP REGISTER 0 ADDR IN PAR6 


2955 

012012 

012702 

175254 



MOV 

#1 75254 R2 

PATTERN FOR TESTING. 


2956 

012016 

010237 

170200 



MOV 

R2.MAPL0 

LOAD MAP REGISTER 0 


2957 

012022 

012700 

004000 



MOV 

#Bi T11.R0 

SET BIT 11 TO FLOAT THROUGH PAR6 


2958 

012026 

012704 

140000 



MOV 

#140000, R4 

VIRT.ADDR. TO SELECT PAR6 


2959 

012032 

074037 

172354 


1$: 

XOR 

R0.KIPAR6 

CHANGE A BIT OF MAP REGISTER O’S ADDR 


2960 

012036 

010046 




MOV 

RO,-(SP) 

SAVE RO ON STACK 


2961 

012040 

013746 

172354 



MOV 

KIPAR6,-(SP) 

SAVE KIPAR6 ON STACK 


2962 

012044 

012737 

000020 

001326 


MOV 

#TIMOUT.CPUEXP 

EXPECTING rPU TIME OUT ON UNIBUS 


2963 

012052 

011401 




MOV 

(R4),R 1 

READ LOCATION POINTED TO BY PAR6 


2964 

012054 

005037 

001326 



CLR 

CPUEXP 

CLEAR CPIUEXP - DON’T EXPECT TRAPS FOR 

A WHILE 

2965 

012060 

020201 




CMP 

R2.R1 

SEE IF DATA FETCHED MATCHES PATTERN 


2966 

012062 

001047 




BNE 

4$ 

BRANCH IF NOT SAME 


2967 

012064 

012737 

000020 

001326 


MOV 

fTIMOUT.CPUEXP 

EXPECTING CPU TIME OUT ON UNIBUS 


2968 

012072 

005014 




CLR 

(R4) 

TRY TO CLEAR THIS LOCATION 


2969 

012074 

005037 

001326 



CLR 

CPUEXP 

CLEAR CPIUEXP - DON’T EXPECT TRAPS FOR 

A WHluE 

2970 

012100 

005737 

170200 



TST 

MAPLO 

SEE IF MAP REGISTER 0 GOT CLEARED 


2971 

012104 

001036 




BNE 

4$ 

BRANCH IF MAP REGISTER NOT ZERO 


2972 

012106 

010237 

170200 



MOV 

R2, MAPLO 

RESTORE MAPLO 


2973 

012112 

010446 




MOV 

R4.-CSP) 

;PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

2974 

012114 

013746 

172354 



MOV 

KJPAR6,-(SP) 

•PUT PAR ON STACK FOR ADREXT SUBROUTINE 

USE 

2975 

012120 

004737 

003674 



JSR 

PC.ADREXT 

: GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRANO 

2976 

012124 

000416 




BR 

2$ 

GO CALL ERROR 


2977 

012126 

012737 

000020 

001326 

20$: 

MOV 

fTIMOUT.CPUEXP 

EXPECTING CPU TIME OUT ON UNIBUS 


2978 

012134 

011401 




MOV 

(R4).R1 

READ LOCATION POINTED TO BY PAR6 


2979 

012136 

005037 

001326 



CLR 

CPUEXP 

CLEAR CPIUEXP - DON’T EXPECT TRAPS FOR 

A WHILE 

2980 

012142 

020201 




CMP 

R2.R1 

SEE IF DATA FETCHED MATCHES PATTERN 


2981 

012144 

001012 




BNE 

3$ 

BRANCH IF NOT SAME 


2982 

012146 

005014 




CLR 

(R4) 

TRY TO CLEAR THIS LOCATION 


2983 

012150 

005737 

170200 



TST 

MAPLO 

SEE IF MAP REGISTER 0 GOT CLEARED 


2984 

012154 

001006 




BNE 

3S 

BRANCH IF MAP REGISTER NOT ZERO 


2985 

012156 

010237 

170200 



MOV 

R2.MAPL0 

RESTORE MAPLO 


2986 

012162 

104207 



2$: 

ERROR 

♦267 

GOT TO MAPLO WITH ONE BIT DIFFERENT IN 

ADDRESS FROM 17 7 7020 

2987 

012164 

012737 

000077 

005766 


MOV 

#77,EADRES*2 

RESTORE 77 TO EADRES+2 


2988 

012172 

032777 

001000 

166736 

3$: 

BIT 

#81 T09.8SWR 

SEE IF LOOP ON ERROR IS SET 


2989 

012200 

001352 




BNE 

20$ 

BRANCH BACK TO LOOP IF SO 


2990 

012202 

012737 

000020 

001326 

4$: 

MOV 

fTIMOUT.CPUEXP 

EXPECTING CPU TIME OUT ON UNiBUS 


2991 

012210 

010114 




MOV 

R 1 , ( R4 ) 

RELOAD THE LOCATION 


2992 

012212 

005037 

001326 



CLR 

CPUEXP 

CLEAR CPIUEXP - DON’T EXPECT TRAPS FOR 

A WHILE 

2993 

012216 

012637 

172354 


5$: 

MOV 

(SPH.KIPAR6 

RESTORE KIPAR6 




G 6 
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TEST # 4 - MAP REGISTER ADDRESS DECODE TEST 


2994 012222 

012600 


MOV 

( SP1 + ,R0 

2995 012224 

074037 

172354 

XOR 

R0.KIPAR6 

2996 012230 

006200 


ASR 

RO 

2997 012232 

001277 


BNE 

1 $ 

2998 012234 

013737 

001200 172354 6S: 

MOV 

$TMP2,KIPAR6 


SEQUENCE 


7 1 


RESTORE RO 

RESTORE BIT TO ORIGINAL STATUS 
RIGHT SHIFT ONE PLACE 

GO CONTINUE TEST IF BIT NOT SHIFTED OUT YET 
RESTORE KIPAR6 



SEQUENCE 72 


H 6 

CKKUAEO 11/24/44 UBI HAP MACRO H1113 11-JAN-82 11:27 PAGE 60 

TEST # 5 - DATA PATH. UNIBUS TO HAIN HEHORY 


3011 


012242 


SBTTL TEST # 5 - DATA PATH. UNIBUS TO MAIN MEMORY 
iTEST 5 DATA PATH. UNIBUS TO MAIN MEMORY 

* THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 

* THE UN I BUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 

* THAT THE ADDRESS IS NOT RELOCATED. THE TEST TRIES TO LOAD THE 

* PATTERN INTO ADDRESS 040000 (8K) BUT IE THE MAP JUMPERS ARE 

* SET NOT TO RESPOND TO THAT ADDRESS THE NEXT 4tC IS TRIED UNTIL 

* THE TEST GETS TO MAIN MEMORY FROM THE UNIBUS. IF THIS TEST 

* DETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 

* IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIF ICATION. 


012242 

000004 




SCOPE 


012244 

004737 

005166 



JSR 

PC. PRETST 

012250 

012630 

012262 

000005 


.WORD 

TST6.20S.5 

3012 012256 

004737 

002772 



JSR 

PC.CLRMAP 
#35. R4 

#1 70400. KIPAR6 

3013 012262 

012704 

000035 


20$: 

MOV 

3014 012266 

012737 

1 70400 

172354 


MOV 

3015 012274 

012737 

170400 

001210 


MOV 

#1 70400. STMP6 

3016 012302 

005037 

001330 


2$: 

CLR 

PCPUER 

3017 012306 

012737 

000020 

001326 


MOV 

#TIM0UT, CPUEXP 

3018 012314 

013700 

140000 



MOV 

140000.RO 

3019 012320 

005037 

001326 



CLR 

CPUEXP 

3020 012324 

005737 

001330 



TST 

PCPUER 

3021 012330 

001411 




BEQ 

4$ 

3022 012332 

062737 

000200 

172354 

3$: 

ADD 

#200.KIPAR6 

3023 012340 

062737 

000200 

001210 


ADD 

#200.STMP6 

3024 012346 

077423 




SOB 

R4.2S 

♦16 

3025 012350 

104010 




ERROR 

3026 012352 

000574 




BR 

SIZEJO 

3027 012354 

013737 

172354 

172352 

4$: 

MOV 

KIPAR6.KIPAR5 

3078 012362 

013737 

001210 

001206 


MOV 

STF!P6.$TMP5 
#1 70000. KIPAR5 

30<?9 012370 

042737 

170000 

172352 


BIC 

3030 012376 

042737 

170000 

001206 


BIC 

#1 70000. STMP5 

3031 012404 

012737 

173214 

120000 


MOV 

#173214.120000 

3032 012412 

012737 

000020 

001326 


MOV 

#TIM0UT. CPUEXP 

3033 012420 

013701 

140000 



MOV 

1 40000. R1 

3034 012424 

005037 

001326 



CLR 

CPUEXP 

3035 012430 

022701 

173214 



CMP 

#1 73214 ,R1 

3036 012434 

001406 




BEQ 

5$ 

3037 012436 

020001 




CMP 

R0.R1 

3038 012440 

001004 




BNE 

5$ 

3039 012442 

062737 

000200 

172354 


ADD 

#200,KIPAR6 

R4.2S 

3040 012450 

077464 




SOB 

3041 012452 

012701 

006102 


5$: 

MOV 

#PATRNS,R1 

3042 012456 

012702 

140000 



MOV 

#1 40000, R2 

3043 012462 

012703 

000007 



MOV 

#7.R3 

3044 012466 

012737 

000020 

001326 


MOV 

#TIM0UT. CPUEXP 
(R1).(R2) 

3045 012474 

011112 



6$: 

MOV 

3046 012476 

021112 




CMP 

(R1MR2) 

3047 012500 

001426 




BEQ 

10$ 


GO SET UP PRETEST DATA 
DATA USED BY PRETST 
CLEAR ALL MAP REGISTERS 
DO 35 ACCESSES 

START WITH ADDRESS 8K FROM UNIBUS 
MOVE IT TO STMPo ALSO 
CLEAR ERROR CONDITION LOCATION 
TIMEOUTS MIGHT OCCUR IN THIS TEST. 

TRY TO READ ADDRESS POINTED TO BY PAP6 
CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
SEE IF READ OF ADDRESS TIMED OUT 
BRANCH IF REFERENCE WAS GOOD 
TRY NEXT 4K BLOCK OF MEMORY 
ADD 200 TO STMP6 ALSO 

SUBTRACT 1 FROM R4 AND BRANCH IF NOT DONE 

NO UNIBUS ADDRESSES RESPOND 

BRANCH TO SIZE JUMPER SECTION 

PUT PAR6 INTO PARS 

DO SAME TRANSFER 

MAKE PAR5 A NON UNIBUS ADDRESS 

CLEAR SAME BITS 

PUT RANDOM NUMBER INTO TEST LOCATION BY FAST BUS 
TIMEOUTS MIGHT OCCUR IN THIS TEST. 

READ TEST LOCATION BY UNIBUS 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

SEE IF DATA WAS READ PROPERLY 

DATA OKAY NOW VERIFY DATA PATH 

SEE IF DATA CHANGED FROM FIRST READ 

BRANCH AROUND NEXT TRY IF SO 

TRY NEXT 4K BLOCK OF MEMORY 

BRANCH BACK TO TRY NEXT 4K BLOCK 

LOAD ADDRESS OF BIT PATTERNS IN R1 

LOAD VIRTUAL ADDRESS INTO R2 

DO 7 PATTERNS 

TIMEOUTS MIGHT OCCUR IN THIS TEST. 

LOAD COUNT INTO TEST LOCATION VIA U.B. 

COMPARE COUNT WITH DATA READ 
BRANCH IF DATA MATCHES 



I 
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TEST # 5 - DATA PATH, UNIBUS TO MAIN MEMORY 


3048 012502 011137 

3049 O 1 2506 011237 

3050 012512 011246 

3051 012514 004737 

3052 012520 011146 

3053 012522 004737 

3054 012526 012737 

3055 012534 000403 

3056 012536 011112 

3057 012540 021112 

3058 012542 001401 

3059 012544 104204 

3060 012546 032777 

3061 012554 001370 

3062 012556 062701 

3063 012562 077334 

3064 012564 005037 

3065 012570 005737 

3066 012574 001405 

3067 012576 005337 

3068 012602 005337 

3069 012606 104011 

3070 012610 023737 

3071 012616 001404 

3072 012620 104030 

3073 012622 013737 


001174 

001176 

003624 

003650 

012536 001106 

7$ : 

8 $: 

001000 166362 9$: 

000002 10 $: 

001326 

001320 

001110 

001320 

001206 172352 11$: 
001206 172352 


MOV <R1).$TMP0 

MOV (R21.STMP1 

MOV («2).-<SP) 

JSR PC.DATEXT 

MOV (RD.-(SP) 

JSR PC.PATEXT 

MOV #7$,$LPERR 

BR 8$ 

MOV (R1),(R2> 

CMP (R1).(R2> 

BEQ 9$ 

ERROR *204 

BIT #BI T9.8SWR 

BNE 7$ 

ADD * 2 . R1 

SOB R3.6$ 

CLR CPUEXP 

TST ERRCNT 

BEO 11$ 

DEC $ERTTl 

DEC ERRCNT 

ERROR *11 

CMP STMP5.KIPAR5 

BEO TST6 

ERROR *30 

MOV $TMP5,KIPAR5 


6 


SEQUENCE 7 3 


MOVE EXPECTED PATTERN TO $TMPO 

MOVE RECEIVED PATTERN TO $TMP1 

PUT DATA ON STACK FOR DATEXT SUBROUTINE USE 

SUBROUTINE TO LOAD DATAOR AND DATAND 

PUT PATTERN ON STACK FOR PATEXT SUBROUTINE USE 

GO SET DATA INTO PATTOR AND PATAND 

SET LOOP ON ERROR POINTER TO 61$ 

BRANCH OVER LOOP ON ERROR SECTION 
LOAD COUNT INTO TEST LOCATION VIA U.B. 

COMPARE COUNT WITH DATA READ 
BRANCH IF OK NOW 

REPORT ERROR (S) ON UNIBUS DATA PATH 
SEE IF LOOP ON ERROR IS SET 
BRANCH BACK IF SO 
MOVE TO NEXT PATTERN 

DECREMENT LOOP COUNTER AND BRANCH IF NOT DONE 
CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
WERE THERE ANY ERRORS ON THIS TEST 
BRANCH IF NO ERRORS ON THIS TEST 
DON’T COUNT ERROR *11 AS ANOTHER ERROR 
SAME AS ABOVE 

SUMMARY OF ERRORS ON THE UNIBUS DATA PATH 
MAKE SURE PAR5 CONTAINS EXPECTED CONTENTS 
; BRANCH IF OK 

KIPAR5 NOT LOADED PROPERLY - SKIPPING NEXT TEST 
RESET KIPAR5 FOR EXECUTION OF NEXT TEST 



SEQUENCE 74 
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TEST # 6 - NAP DOESN’T RELOCATE If NOT ENABLED 


3087 


SBTTL TEST # 6 - MAP DOESN'T RELOCATE IF NOT ENABLED 
•TEST 6 NAP DOESN'T RELOCATE If NOT ENABLED 

* THIS TEST VERIFIES THAT THE UNIBUS NAP DOES NOT RELOCATE If BITS 

* Of NNR3 IS NOT SET. THE TEST ASSUMES THAT THE PREVIOUS TEST HAS 

* RUN SUCCESSFULLY AND LEFT KIPAR6 POINTING TO THE FIRST UNIBUS 

* NAPPING REGISTER THAT THE UNIBUS NAP WILL RESPOND TO GREATER 

* THAN OR EQUAL TO NAPREG #2. K I PARS IS ALSO POINTING TO THE 

* SANE MEMORY BASE ADDRESS EXCEPT IT POINTS OVER THE FASTBUS. 

* THE TEST THEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 

* AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. SINCE THE 

* MAP IS NOT ENABLED THE LOAD WILL GO TO MAIN MEMORY UNRELOCATED. 



012630 

000004 



TST6: 

SCOPE 


3088 

012632 

004737 

005166 



JSR 

PC. PRETST 

3089 

012636 

012744 

012710 

000006 


.WORD 

SIZEJ0.20S.6 

3090 

012644 

052737 

000001 

177572 


BIS 

#8ITO.MMRO 

3091 

012652 

013700 

172354 



MOV 

XIPAR6.R0 

3092 

012656 

072027 

177773 



ASH 

#-5.R0 
#1 77400.R0 

3093 

012662 

042700 

177400 



BIC 

3094 

012666 

042737 

177000 

172352 


BIC 

#1 77000.X I PAR5 

3095 

012674 

012720 

021042 



MOV 

#021042, (RO)* 

3096 

012700 

012710 

000042 



MOV 

#42. (RO) 

120000 

3097 

012704 

005037 

120000 



CLR 

3098 

012710 

012737 

000020 

001326 

20$: 

MOV 

#TIMOUT, CPUEXP 

3099 

012716 

012737 

043207 

140000 


MOV 

#43207.140000 

3100 








3101 

012724 

005037 

001326 



CLR 

CPUEXP 

3102 

012730 

013703 

120000 



MOV 

1 20000. R3 

3103 

012734 

022703 

043207 



CMP 

#43207,R3 

3104 

012740 

001401 




BEQ 

SIZEJO 

3105 

012742 

104012 




ERROR 

*12 


GO SET UP PRETEST DATA 

DATA USED BY PRETST 

TURN MEMORY MANAGEMENT BACK ON 

PUT UNI8US ADDRESS OF MAP REGISTER IN RO 

RIGHT SHIFT RO 5 PLACES 

CLEAR UPPER BYTE 

MAKE XI PAR 5 ACCESS THE FAST BUS 

SET BOTTOM BIT IN EACH ALU 

SET BOTTOM BIT IN EACH ALU 

CLEAR TEST LOCATION VIA FAST BUS 

TIMEOUTS MIGHT OCCUR IN THIS TEST. 

LOAD TEST LOCATION VIA UNIBUS THIS LOAD SHOULD NOT BE 

RELOCATED BY THE UNIBUS MAP. SINCE BIT05 OF HHR3 IS CLEAR. 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

READ TEST LOCATION VIA FAST BUS 

SEE IF DATA MATCHES 

BRANCH IF DATA GOOD 

MAP RELOCATED WHEN NOT ENABLED 



SEQUENCE 


CKKUAEO 11/24/44 U8I MAP 
DETERMINATION OF FIRST USEABLE 


3106 



3107 



3108 



3109 



3110 



3111 



3112 



3113 



3114 



3115 



3116 



3117 



3118 012744 

012705 

020226 

3119 012750 

012700 

170200 

3120 012754 

012701 

000040 

3121 012760 

012702 

006002 

3122 012764 

012720 

020000 

3123 012770 

005020 


3124 012772 

005022 


3125 012774 

077105 


3126 012776 

012703 

006002 

3127 013002 

052737 

000040 

3128 013010 

052737 

000001 

3129 013016 

012700 

117776 

3130 013022 

012737 

170000 

3131 013030 

012702 

125252 

3132 013034 

012737 

177777 

3133 013042 

012737 

177777 

3134 013050 

012737 

037776 

3135 013056 

005037 

001312 

3136 013062 

012737 

013070 

3137 013070 

012737 

000020 

3138 013076 

004737 

003474 

3139 013102 

000417 


3140 013104 

005037 

001326 

3141 013110 

004737 

005230 

3142 013114 

104214 


3143 013116 

062737 

000200 

3144 013124 

022737 

1 77400 

3145 013132 

001356 


3146 013134 

104013 


3147 013136 

000137 

010000 

3148 013142 

005037 

001326 

3149 013146 

004737 

005266 

3150 013152 

104213 
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MAP REGISTER 

. SBTTL DETERMINATION OF FIRST USEABLE MAP REGISTER 


THIS TEST DETERMINES THE SETTING OF THE JUMPERS ON THE UNIBUS 
MAP WHICH ALLOW THE MAP TO RESPOND TO THOSE ADDRESSES BETWEEN 
THE JUMPER RANGE. THE DEFAULT SETTING ALLOWS THE MAP TO RESPOND 
TO ADDRESSES 000000 - 757776 ON THE UNIBUS. IF THE JUMPERS ARE 
NOT SET IN THEIR DEFAULT POSITION AN INFORMATIONAL MESSAGE IS GIVEN. 
>>»>>>>>NOTE <<<<<<<<< 

THIS IS THE FIRST TEST IN WHICH THE UNIBUS MAP IS TURNED ON. 



SIZEJO: 

MOV 

ASDDW0.R5 

PUT ADDRESS OF SDDWO IN R5 



MOV 

AMAPLO.RO 

LOAD ADDRESS OF FIRST MAP REGISTER IN RO 



MOV 

A40.R1 

DO ALL 40 REGISTERS 



MOV 

ASPECST.R2 

SET R2 TO 8EGINING OF SPECIAL STACK 


IS: 

MOV 

*20000, <R0)+ 

LOAD 4K INTO LOWER 16 BITS AND 



CLR 

(R0) + 

CLEAR THE UPPER 6 BITS 



CLR 

(R 2 )* 

CLEAR THE SPECIAL STACK LOCATION 



SOB 

R1 ,1$ 

BRANCH IF THERE ARE MORE TO LOAD 



MOV 

ASPECST.R3 

RESET SPECIAL STACK POINTER 

172516 


BIS 

A8IT5.MHR3 

TURN ON MAP RELOCATION 

177572 


BIS 

ABITO.HMRO 

MAKE SURE MEMORY MANAGEMENT IS ON 



MOV 

A117776.R0 

THIS WILL BE USED TO SELECT PAR 4, ADDRESS 17776 

172350 


MOV 

A170000.KIPAR4 

LOAD MAP REGISTER 0 -200 IN KIPAR4 



MOV 

A125252.R2 

CONSTANT TO LOAD INTO LOCATION 17776 

001174 


MOV 

A-1.STMP0 

MOVE -1 TO MAP REGISTER POINTER 

003532 


MOV 

A-1.FTTHRU 

INITIALIZE ONE TIME ENTRANCE FLAG IN SUBROUTINE 

001310 


MOV 

A37776.UBM24L 

MOVE TEST CELL ADDRESS TO LOCATION UBM24L 



CLR 

U8M24U 

CLEAR UPPER LOCATION «4U 

001106 


MOV 

A2S.SLPERR 

,®WVE LOOP ON ERRROR ADDRESS TO SLPERR 

001326 

2 S: 

MOV 

ATIMOUT.CPUEXP 

EXPECTING CPU TIME OUT ON UNIBUS 



JSR 

PC.TSTLOC 

GO TO SUBROUTINE TO SEE IF LOCATION RESPONDS 



BR 

31 

RETURN IS HERE IF LOWEST FOUND 



CLR 

CPUEXP 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 



JSR 

PC.DSABLD 

GO SEE IF REGISTER SHOULD BE DISABLED 



ERROR 

♦214 

MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 

172350 


ADD 

A200.KIPAR4 

MAP TO NEXT REGISTER 

172350 


CMP 

A177400.KIPAR4 

SEE IF WE ARE POINTING JUST BELOW THE I/O PAGE 



8NE 

2$ 

GO TEST NEXT MAP REGISTER IF NOT 



ERROR 

♦ 13 

FATAL ERROR. RESTARTING PROGRAM 



JMP 

START 

JUMP TO RESTART PROGRAM 


3$ : 

CLR 

CPUEXP 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 



JSR 

PC.ENABLD 

GO CHECK TO SEE IF REGISTER SHOULD BE ENABLED 



ERROR 

♦213 

MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 



SEQUENCE 
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.SBTTL SECTION TO DETERMINE NUMBER OF USEABLE MAP REGISTERS 

•ft************************************************************** 

i THIS SECTION DETERMINES THE NUMBER OF USEABLE MAP REGISTERS ST ACCOM- 

* PLISHING THE SAME LOCATION ACCESS TEST AS IN THE PREVIOUS SECTION. 

* ' 


3156 

3157 013154 

013737 

001174 

001266 

• ****** 

SIZEJ1 : 

MOV 

STMPO.MMRLOW 

3158 013162 

013737 

172350 

001256 


MOV 

KIPAR4, LOWEST 
#170000. LOWEST 

3159 013170 

022737 

1 70000 

001256 


CMP 

3160 013176 

001427 




BEQ 

1$ 

3161 013200 

005037 

001272 



CLR 

U6RL0W 

3162 013204 

012737 

170000 

001262 


MOV 

#170000. UBMLOW 

3163 013212 

013737 

001174 

001274 


MOV 

STMPO. UBRHI 

3164 013220 

005337 

001274 



DEC 

UBRHI 

3165 013224 

013737 

172350 

001264 


MOV 

XIPAR4.UBMHI 

3166 013232 

162737 

000200 

001264 


SUB 

#200,UBMHI 

3167 013240 

012737 

1 77400 

001260 


MOV 

#1 77400.HIGEST 

3168 013246 

012737 

000031 

001270 


MOV 

#31 .MMRHI 

3169 013254 

000532 




BR 

YESMSG 

3170 013256 

012737 

013324 

001106 

IS: 

MOV 

#3$.$LPERR 

#200.KIPAR4 

3171 013264 

062737 

000200 

172350 


ADD 

3172 013272 

000414 




BR 

3$ 

3173 013274 

005037 

001326 


2$: 

CLR 

CPUEXP 

3174 013300 

062737 

000200 

172350 


ADD 

#200.KIPAR4 

3175 013306 

022737 

177400 

172350 


CMP 

#1 77400.X I PAR4 

3176 013314 

001416 




BEQ 

41 

3177 013316 

004737 

C05266 



JSR 

PC.ENABLD 

♦2l3 

3178 013322 

104213 




ERROR 

3179 013324 

012737 

000020 

001326 

3$: 

MOV 

#TIM0UT. CPUEXP 

3180 013332 

004737 

003474 



JSR 

PC, TSTLOC 

3181 013336 

000756 




BR 

2$ 

3182 013340 

005037 

001326 



CLR 

CPUEXP 

3183 013344 

3184 

004737 

005230 



JSR 

PC.DSABLD 

♦214 

3185 013350 

104214 




ERROR 

3186 013352 

013737 

001174 

001270 

4$: 

MOV 

STMPO, MMRHI 

3187 013360 

005337 

001270 



DEC 

MMRHI 

3188 013364 

013737 

172350 

001260 


MOV 

XIPAR4.HIGEST 

3189 013372 

023727 

001260 

177400 


CMP 

HIGEST. #177400 

3190 013400 

001522 




BEQ 

NOMSG 


MOVE REGISTER NUMBER FOUND USEABLE TO MMRLOU 

MOVE LOWEST USEABLE REGISTER TO LOWEST 

SEE IF LOWEST REGISTER FOUND WAS THE LOWEST 

BRANCH AROUND SETUP IF IT WAS 

MAP REGISTER 0 IS LOWEST FOR UNIBUS MEMORY 

MOVE PAR VALUE OF UB MEMORY TO UBMLOW 

MOVE REGISTER NUMBER FOUND USEABLE TO UBRHI 

POINT IT AT HIGHEST UB MEMORY MAP REGISTER 

MOVE K I PARA TO UNIBUS MAP HIGHEST AND 

SUBTRACT 200 FROM IT TO POINT TO LAST USEABLE U8MEM PAGE 

MOVE HIGHEST REGISTER TO HIGEST AND 

POINT TO LAST USEABLE MAP REGISTER 

GO TYPE MESSAGE OF NON-DEFAULT INFORMATION 

SET LOOP ON ERROR TO 3$ 

MAP TO NEXT REGISTER 

BRANCH OVER POST-TSTLOC CODE 

CLEAR CPUEXP - DON’T EXPECT TRAPS FOR A WHILE 

MAP TO NEXT REGISTER 

SEE IF ALL MAP REGISTERS HAVE BEEN TRIED 
BRANCH IF ALL ARE DONE 
GO SEE IF MAP REGISTER SHOULD BE ENABLED 
MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
TIMEOUTS MIGHT OCCUR IN THIS TEST. 

GO TO SUBROUTINE TO SEE IF IT RESPONDS 

RETURN IS HERE IF IT WAS LOADED 

CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 

RETURN IS HERE IF NOT LOADED - GO SEE I r 

REGISTER SHOULD BE DISABLED 

MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 

MOVE REGISTER FOUND TO MMRHI 

DECREMENT THIS VALUE - IT IS ONE TOO MANY 

MOVE FIRST UNUSABLE REGISTER TO HIGEST 

SEE IF UPPER JUMPER IS DEFAULT. 

BRANCH AROUND MESSAGE TYPEOUT IF IT IS DEFAULT 
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SEQUENCE 


3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 


013402 

013410 

013416 

013424 

013432 

013434 

013442 

013450 

013452 

013456 

013460 

013466 

013472 

013474 

013500 

013502 

013506 

013512 

013514 

013522 

013530 

013536 


013737 

062737 

013737 

012737 

000412 

062737 

022737 

001414 

004737 

104214 

012737 

004737 

000403 

005037 

000755 

005037 

004737 

104213 

013737 

013737 

013737 

005337 


001260 

000200 

001174 

013460 

000200 

177400 

005230 

000020 

003474 

001326 


001326 

005266 

172350 

172350 

001174 

001274 


. SBTTl DETERMINE UNUSEA8LE MAP REGISTER WINDOW SIZE 
*************************************************************** 

THIS SECTION PERFORMS THE SAME LOCATION ACCESS TEST PREVIOUSLY DONE 
LOOKING FOR THE FIRST ACCESSIBLE REGISTER, OR THE UPPER LIMIT. ONCE 
FOUND, THE SIZE OF THE WINDOW HAS BEEN DETERMINED AND THE MESSAGE 
TELLING THE USER OF THE SIZE IS PRINTED. 

**************************************************************** 


001262 

001262 

001272 

001106 

172350 

172350 


001326 25: 


00'276 

0C12O4 

001274 


SIZEJ2: MOV HIGEST,U8ML0W 

ADD A200.UBMLOW 

MOV STMPO,UBRLOW 

MOV *2$,$LPERR 

BR 2$ 

1$: ADD #200,KIPAR4 

CMP #1 77400.KIPAR4 

BEQ 3$ 

JSR PC.DSA8LD 

ERROR +214 

MOV ATIMOUT, CPUEXP 

JSR PC,TSTLOC 

BR 3$ 

CLR CPUEXP 

BR IS 

;AT THIS POINT, KIPAR4 
3$: CLR CPUEXP 

JSR PC.ENABLD 

ERROR +213 

MOV KIPAR4,BUPWIN 

MOV KIPAR4.UBMHI 

MOV STMP0,U8RHI 

DEC UBRHI 


MOVE UPPER LIMIT TO U8ML0W LOCATION 
POINT UBMLOW TO FIRST USABLE UNIBUS MEM PAGE 
MOVE REGISTER NUMBER TO UBRLOW 
SET LOOP ON ERROR TO 2S 

BRANCH OVER CHECK FOR NON-EXISTENT LOCATION 
MAP TO NEXT REGISTER 

SEE IF WE ARE POINTING JUST BELOW THE I/O PAGE 
GO INITIALIZE UBMHI IF WE ARE 
GO SEE IF LOCATION SHOULD BE DISABLED 
MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
TIMEOUTS MIGHT OCCUR IN THIS TEST. 

GO TO SUBROUTINE TO SEE IF IT DOESN'T RESPOND 
RETURN IS HERE IF IT WAS LOADED - GO INITIALIZE UBMHI 
CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
; RE TURN IS HERE IF NOT - GO BACK FOR ANOTHER TRY 
POINTS JUST ABOVE HIGHEST ADDRESS OF UNIBUS MEMORY 
CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
GO SEE IF MAP REGISTER SHOULD BE ENABLED 
MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
MOVE THIS VALUE TO ’B'EGINING 'UP'PER 'WIN’DOW 
MOVE THIS TO UBMHI ALSO 
MOVE MAP REGISTER POINTER TO UBRHI 
DECREMENT THIS VALUE - IT IS ONE TOO MANY 
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3222 . S8TTL ROUTINE TO PR IN T THE WINDOW SIZE MESSAGE 


3223 




« ****** 


************* 

3224 

013542 

005737 

020150 

YESMSG: 

TST 

SPASS 

3225 

013546 

001037 



BNE 

NOMSG 

3226 

013550 

104401 

033002 


TYPE 

, JMPMSG 

3227 

013554 

012700 

005740 


MOV 

fDTMS.RO 

3228 

013560 

012746 

013574 


MOV 

m.-(SP) 

3229 

013564 

010046 



MOV 

RO.-(SP) 

3230 

013566 

010146 



MOV 

R1 ,-(SP) 

3231 

013570 

000137 

002244 


JMP 

TYPDAT 

323? 

013574 

104401 

001223 

IS: 

TYPE 

.SCRLF 

3233 

013600 

104401 

001223 


TYPE 

.SCRLF 

3234 

013604 

022703 

006002 


CMP 

ASPECST.R3 

3235 

013610 

001416 



BEQ 

NOMSG 

3236 

013612 

104401 

006261 


TYPE 

.TOMSG 

3237 

013616 

012703 

006002 


MOV 

#SPECST ,R3 

3238 

013622 

014346 


2 S: 

MOV 

-<R3).-(SP> 

3239 

013624 

104405 


3S 

TYPDS 


3240 

013626 

104401 

001223 


TYPE 

.SCRLF 

3241 

013632 

005743 



TST 

-<R3) 

3242 

013634 

001402 



BEQ 

4$ 

3243 

013636 

011346 



MOV 

(R3).-(SP) 

3244 

013640 

000771 



BR 

3S 

3245 

013642 

104401 

001223 

4$: 

TYPE 

.SCRLF 


SEE IF THIS IS FIRST PASS 

BRANCH TO NEXT SECTION IF NOT FIRST PASS 

TYPE SIZE JUMPERS NOT IN DEFAULT - FOR INFO ONLY 

SET UP MESSAGE POINTER 

PUSH RETURN ON THE STACK 

PUSH RO ON THE STACK 

PUSH R1 ON THE STACK 

GO TYPE THE DATA 

TYPE A <CRLF> 

TYPE ONE MORE <CRLF> 

SEE IF ANY TIMEOUTS OCCURED 
BRANCH TO NEXT SECTION IF NONE 
TYPE THE TIMEOUTS MESSAGE 
RESET R3 

PUSH THE REGISTER * ONTO THE STACK IN ORDER IT WAS PUSHED 
TYPE THE NUMBER IN DECIMAL. LEADING ZEROS SUPPRESSED 
TYPE A <CRLF> 

SEE IF THERE IS ANOTHER REGISTER NLfBER TO PRINT 

BRANCH AROUND SETUP IF NONE 

PUSH THIS NUMBER ON THE STACK 

BRANCH BACK TO PRINT IT 

TYPE ONE MORE <CRLF> 
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3246 

3247 

3248 

3249 

3250 

3251 


.S8TTL SETUP POINTERS FOR tOWEST AND Hi GHE S T CU P REGISTERS 

* SETUP POINTERS TO THE LOWEST AND THE HIGHEST USA8LE 

• CUPPING REGISTERS TO CONTINUE WITH T EST. 


3252 




* ****** 




3253 013646 

010546 


NOWSG : 

MOV 

R5.-(SP) 

SAVE R5 


3254 013650 

013705 

001256 


MOV 

LOWEST, R5 

MOVE PAR DA T A TO R5 FOR 

CONVERSION 

3255 013654 

042705 

1 70000 


81 C 

#1 70000. R5 

CLEAR BI T S 15 TO 12 


3256 013660 

072527 

177773 


ASH 

A-5.R5 

SHIFT INDICATOR BPS TO 

THE RIGHT 5 PLACES 

3257 013664 

052705 

1 70200 


BIS 

A17&200.R5 

FORM ADDRESS 


3258 013670 

010537 

001300 


MOV 

R5.LREGL 

SAVE RESULTS 


3259 013674 

012605 



MOV 

( SP> ♦ ,R5 

RESTORE R5 


3260 013676 

013737 

001300 

001302 

MOV 

lregl.i regu 

MOVE ADDRESS TO LREGU 


3261 013704 

062737 

000002 

001302 

ADD 

#2.LREGu 

POINT TO UPPER 6 BITS OF 

CUP REG 
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3280 


S8TTL TEST 0 7 - ENSURE THAT THERE IS NO DUAL MAPPING 
>************************+**********+**+***+***+**************** 

•TEST 7 ENSURE THAT THERE IS NO DUAL MAPPING 


THIS TEST VERIFIES THAT THERE IS NO DUAL MAPPING. IT CLEARS 
ALL THE MAP REGISTERS EXCEPT THE ONE UNDER TEST, AND LOADS 
THAT ONE WITH 00040000. IF MAP RELOCATION IS ENABLED (AND 
IN THIS TEST IT IS). SUBROUTINE CLRMAP CLEARS ALL BUT THE 
LOWER 16 BITS OF MAPLl. AND LOADS 20000 THERE. THIS IS SO 
THAT APT, IF CONTROLLING THIS DIAGNOSTIC, CAN STILL EXAMINE 
THE PROPER LOCATIONS. THE TEST THEN USES A VIRTUAL ADDRESS 
TO SELECT THAT MAP REGISTER 7ND ADD 17776, SO THAT IT SHOULD 
REFERENCE ADDRESS 00057776 (00037776 IF MAPLl CONTAINS 20000 
AS PER CONDITIONS DESCRIBED ABOVE). A REFERENCE IS MADE THROUGH 
EACH OF THE REGISTERS AND ANT THAT FETCH THE CORRECT DATA ARE 
CHECKED TO SEE THAT IT WAS THE MAP REGISTER UNDER TEST. IF 
NOT. BOTH THE MAP REGISTER UNDER TEST AND THE DUALED REGISTER 
ARE REPORTED. 




013712 TST7: 


013712 

000004 




SCOPE 


013714 

004737 

005166 



JSR 

PC, PRETST 

013720 

014616 

014260 

000007 


.WORD 

TST10.20S.7 

3281 013726 

005037 

172516 



CLR 

MMR3 

3282 013732 

005037 

001312 



CLR 

UBM24U 

3283 013736 

052737 

000060 

172516 


BIS 

#60,MMR3 

3284 013744 

004737 

002772 



JSR 

PC, CLRMAP 

3285 013750 

042737 

000001 

177572 


8IC 

#1,MMR0 

3286 013756 

005037 

001174 



CLR 

STMPO 

3287 013762 

012703 

117776 



MOV 

#1 1 7776, R3 

3288 013766 

013702 

001300 



MOV 

LREGL.R2 

3289 013772 

013700 

001256 



MOV 

LOWEST.RO 

3290 013776 

052737 

000001 

177572 


BIS 

#1,MMR0 

3291 014004 

005037 

001320 



CLR 

ERRCNT 

3292 014010 

013737 

001256 

172350 

100S: 

MOV 

LOWEST, KIPAR4 

3293 014016 

022702 

170204 



CMP 

#MAPL01.R2 

3294 014022 

001003 




BNE 

IS 

3295 014024 

022712 

020000 



CMP 

#20000, (R2) 

3296 014030 

001410 




BEQ 

2S 

3297 014032 

012712 

040000 


IS: 

MOV 

#40000, (R2) 

3298 014036 

010237 

057776 



MOV 

R2. 577^6 

3299 







3300 014042 

012737 

057776 

001314 


MOV 

#57776,UBM24P 

3301 014050 

000405 




BR 

3S 

3302 014052 

010237 

037776 


2$: 

MOV 

R2, 37776 

3303 







3304 014056 

012737 

037776 

001314 


MOV 

#37776.UBM24P 

3305 Cl 4064 

162737 

000200 

172350 

3S: 

SUB 

#200,KIPAR4 

3306 014072 

062737 

000200 

172350 

4S: 

ADD 

#200,KIPAR4 

3307 014100 

005037 

001330 


41S: 

CLR 

PCPUER 

3308 014104 

012737 

017776 

001310 


MOV 

#1 7776.U9M24L 

3309 014112 

020037 

172350 



CMP 

R0.KIPAR4 

3310 014116 

001003 




BNE 

45§ 

3311 014120 

013737 

001314 

001310 


MOV 

UBM24P.UBM24L 

3312 014126 

012737 

000020 

001326 

45S : 

MOV 

#TIMOUT,CPUEXP 

3313 014134 

011304 




MOV 

(R3),R4 


GO SET UP PRETEST DATA 
DATA USED BY PRETST 
CLEAR MMR3 

CLEAR THE UPPER EXPECTED LMA LOCATION 

ENABLE 22-BIT ADDRESSING AND MAP RELOCATION 

CLEAR ALL MAP REGISTERS 

TURN OFF MEMORY MANAGEMENT 

STMPO IS USED AS A FLAG IN THIS TEST 

SELECT P.A.R. 4 OFFSET OF 17776 

PUT ADDRESS OF LOWEST USABLE MAP REGISTER IN R2 

LOAD PAR POINTING TO MAP REGISTER UNDER TEST IN RO 

MAKE SURE MEMORY MANAGEMENT IS ON 

CLEAR THE ERROR COUNT FOR ERROR 202 BELOW 

PAR OF LOWEST USEABLE MAP REGISTER IS LOADED IN KIPAR4 

SEE IF WE ARE POINTING AT MAPLl 

Bpiuru if unr 

SEE IF IT CONTAINS 20000 (FOR APT USE) 

8RANCH IF SO 

LOAD MAP REGISTER UNDER TEST WITH 8K BASE 

LOAD TEST LOCATION WITH THE ADDRESS 

OF THE MAP REGISTER UNDER TEST 

MOVE ANTICIPATED ADDRESS TO LOCATION U8M24P 

BRANCH OVER LOCATION SETUP 

LOAD TEST LOCATION WITH THE ADDRESS 

OF THE MAP REGISTER UNDER TEST 

MOVE ANTICIPATED ADDRESS TO LOCATION 

PREPARE KIPAR4 FOR FIRST ’ADD 200* 

TRY NEXT MAP REGISTER 

CLEAR THE ERROR RECEIVER 

MOVE DEFAULT LMA ADDRESS TO UBM24L 

SEE IF REGISTER UNDER TEST IS POINTED TO BY KIPAR4 

BRANCH AROUND SETUP IF NOT 

MOVE SPECIAL LMA ADDRESS TO LOCATION 

POSSIBLE NON-EXISTENT MEMORY 

READ THROUGH THE MAP REGISTER 


80 
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3314 

014136 

005037 

001326 



CLR 

CPUEXP 

3315 

014142 

005037 

001320 



CLR 

ERRCNT 

3316 

014146 

005737 

001330 



TST 

PCPUER 

3317 

014152 

001110 




BNE 

8$ 

3318 

014154 

020402 




CMP 

R4.R2 

3319 

014156 

001075 




BNE 

6$ 

3320 

014160 

032777 

004000 

164750 


BIT 

ATB I T 1 1 .iSWR 

3321 

014166 

001406 




BEQ 

49$ 

3322 

014170 

013737 

177736 

001304 


MOV 

LMAH I. LMAH 

3323 

014176 

013737 

177734 

001306 


MOV 

LMALOW.LMAL 

3324 

014204 

020037 

172350 


49S : 

CMP 

R0.KIPAR4 

5325 

014210 

001455 




BEQ 

5$ 

3326 

014212 

004737 

005076 



JSR 

PC.CHKLMA 

3327 

014216 

001304 

001306 



.WORD 

LMAH. LMAL 

3328 

014222 

000450 




BR 

5$ 

3329 

014224 

011337 

001202 



MOV 

(R3).$TMP3 

3330 

014230 

013746 

001202 



MOV 

$TMP3.-(SP> 

3331 

014234 

013746 

172350 



MOV 

KIPAR4,-(SP) 

3332 

014240 

004737 

003674 



JSR 

PC.ADREXT 

3333 

014244 

010246 




MOV 

R2.-(SP) 

3334 

014246 

013746 

172356 



MOV 

KIPAR7.-(SP) 

3335 

014252 

004737 

003624 



JSR 

PC. DATEXT 

3336 

014256 

000424 




BR 

46$ 

3337 

014260 

020402 



20$: 

CMP 

R4.R 2 

3338 

014262 

001023 




BNE 

47$ 

3339 

014264 

032777 

004000 

164644 


BIT 

#BIT11,aSWR 

3340 

014272 

001406 




BEQ 

59$ 

3341 

014274 

013737 

177736 

001304 


MOV 

LHAHI .LMAH 

3342 

014302 

013737 

177734 

001306 


MOV 

LMALOW.LMAL 

3343 

014310 

020037 

172350 


59$: 

CMP 

R0.KIPAR4 

3344 

014314 

001406 




BEQ 

47$ 

3345 

014316 

004737 

005076 



JSR 

PC.CHKLMA 

3346 

014322 

001304 

001306 



.WORD 

LMAH. LMAL 

3347 

014326 

000401 




BR 

47$ 

5348 

014330 

104210 



46$: 

ERROR 

+210 

3349 

014332 

032777 

001000 

164576 

47$: 

BIT 

#81 T9.3SWR 

3350 

014340 

001347 




BNE 

20$ 

3351 

014342 

000414 




BR 

8$ 

3352 

014344 

005237 

001 1 74 


5$: 

INC 

$TMP0 

3353 

014350 

000411 




BR 

8$ 

3354 

014352 

004737 

005076 


6$: 

JSR 

PC.CHKLMA 

3355 

014356 

001304 

001306 



.WORD 

LMAH. LMAL 

3356 

014362 

000401 




BR 

7$ 

3357 

014364 

000403 




BR 

8$ 

3358 

014366 

020037 

172350 


7$: 

CMP 

R0.KIPAR4 

3359 

014372 

001 764 




BEQ 

5$ 

3360 

014374 

022737 

177400 

172350 

8$: 

CMP 

#1 77400.KIPAR4 

3361 

014402 

001420 




BEQ 

10$ 

3362 

014404 

023737 

001260 

172350 


CMP 

HIGEST .KIPAR4 

3363 

014412 

001227 




BNE 

4$ 

3364 

014414 

062737 

000200 

172350 

9$: 

ADD 

#200.KIPAR4 

3365 

014422 

022737 

1 77400 

1/2350 


CMP 

#177400,KIPAR4 

3366 

014430 

001405 




BEQ 

10$ 

3367 

014432 

023737 

001276 

172350 


CMP 

BUPWIN.KIPAR4 

3368 

014440 

001365 




BNE 

9$ 

3369 

014442 

000616 




BR 

41$ 

3370 

014444 

005737 

001174 


10$: 

TST 

$TMPO 


NO MORE TIMEOUTS FOR AWHILE 
CLEAR ERROR COUNT 
SEE IF THERE WAS AN ERROR 
BRANCH AROUND DATA TEST IF SO 
SEE IF CORRECT DATA WAS FETCHED 
BRANCH IF NO MATCH 

SEE IF THIS IS AN 11/24 WITH UB MEM ONLY 

BRANCH IF NOT 

SAVE LMA HIGH REG IN LMAH 

SAVE LMA LOW REG IN LMAL 

SEE IF MAP REGISTERS ARE THE SAME 

BRANCH IF CORRECT MAP REGISTER WAS 'ED 

GO CHECK FOR 11/24 WITH U8 MEMORY . Y 

ADDRESSES OF LOCATIONS CONTAINING L CONTENTS 

RETURN IS HERE IF MATCH ACHIEVED 

SAVE CONTENTS FOR ERROR PRINTING 

MOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 

MOVE PAR4 CONTENTS TO STACK FOR SUBROUTINE USE 

GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

PUT ADDRESS OF REGISTER ON STACK FOR DATEXT USE 

MOVE PAR CONTENTS TO STACK FOR SUBROUTINE USE 

GO SET DATA IN DATAOR AND DATAND 

BRANCH OVER LOOP ON ERROR SETUP 

SEE IF CORRECT DATA WAS FETCHED 

BRANCH IF NO MATCH 

SEE IF THIS IS AN H/24 WITH UB MEM ONLY 

BRANCH IF NOT 

SAVE LMA HIGH REG IN LMAH 

SAVE LMA LOW REG IN LMAL 

SEE IF MAP REGISTERS ARE THE SAME 

BRANCH IF CORRECT MAP REGISTER WAS USED 

GO CHECK FOR 11/24 WITH UB MEMORY ONLY 

ADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

RETURN IS HERE IF MATCH ACHIEVED 

DUAL MAPPING ERROR IN THE UNIBUS MAP 

SEE IF LOOP ON ERROR IS SET 

noAMru hath if cn 

BRANCH AROUND ADDRESS MATCH SETTING 

SET FLAG WHEN ADDRESSES MATCH 

BRANCH AROUND SUBROUTINE CHECK - NOT NEEDED 

GO CHECK FOR 11/24 WITH UB MEMORY ONLY 

ADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

RETURN IS HERE IF MATCH ACHIEVED 

BRANCH OVER LMA SPECIFIC COMPARE CODE 

SEE IF MAP REGISTERS ARE THE SAME 

BRANCH IF CORRECT HAP REGISTER WAS USED 

SEE IF LAST REGISTER HAS BEEN TRIED 

BRANCH TO CONTINUE IF SO 

SEE IF ALL HAVE BEEN TRIED 

BRANCH IF STILL MORE TO TRY 

MAP TO NEXT MAP REGISTER 

SEE IF WE ARE AT THE TOP 

BRANCH TO CONTINUE IF SO 

SEE IF WE ARE POINTING TO THE UPPER WINDOW START 
BRANCH BACK FOR ANOTHER INCREMENTING SET IF NOT 
GO BACK FOR A NEW TRY 
SEE THAT THERE WAS A SUCCESSFUL MATCH 
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TEST # 7 - ENSURE THAT THERE IS NO DUAL MAPPING 


3371 

014453 

001006 



BNE 

11$ 

3372 

014452 

010246 



MOV 

R2,-(SP1 

3373 

014454 

013746 

172356 


MOV 

KIPAR7.-(SP) 

3374 

014460 

004737 

003674 


JSR 

PC .ADREXT 
♦2 1 0 

3375 

014464 

104210 



ERROR 

3376 

014466 

005037 

001174 

11 $. 

CLR 

$TMPO 

3377 

014472 

022702 

1 70204 


CMP 

#MAPL01 ,R2 

3378 

014476 

001006 



BNE 

12$ 

3379 

014500 

022712 

040000 


CMP 

#40000. (R2) 

3380 

014504 

001403 



BEO 

12$ 

3381 

014506 

005037 

037776 


CLR 

37776 

3382 

014512 

000401 


12$: 

BR 

13$ 

3383 

014514 

005012 


CLR 

(R 2) 

3384 

014516 

062700 

000200 

13$: 

ADD 

#200.RO 
#4.R 2 

#177400.R0 

3385 

014522 

062702 

000004 


ADD 

3386 

014526 

022700 

177400 


CMP 

3387 

014532 

001421 



BEO 

15$ 

3388 

014534 

023700 

001260 


CMP 

HIGEST.RO 

3389 

014540 

001402 



BEO 

14$ 

3390 

014542 

000137 

014010 


JMP 

100$ 

3391 

014546 

062700 

000200 

14$: 

ADD 

#200. RO 
#4.r2 

#1^7400. RO 

3392 

014552 

062702 

000004 


ADD 

3393 

014556 

022700 

177400 


CMP 

3394 

014562 

001405 



BEO 

15$ 

3395 

014564 

020037 

001276 


CMP 

RO.BUPWIN 

3396 

014570 

001336 



BNE 

11$ 

3397 

014572 

000137 

014072 


JMP 

4$ 

3398 

014576 

005737 

001320 

15$: 

TST 

ERRCNT 

3399 

014602 

001405 



BEO 

TST10 

3400 

014604 

005337 

001110 


DEC 

$ERTTL 

3401 

014610 

005337 

001320 


DEC 

ERRCNT 

3402 

014614 

104016 



ERROR 

+ 16 


HDANTM IF THFBF 

°UT ADDRESS OF REGISTER ON STACK FOR ADREXT USE 

PUT PAR ON STACK FOR SUBROUTINE ADREXT USE 

GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 

DUAL MAPPING ERROR IN THE UNIBUS MAP 

CLEAR FLAG FOR NEXT REGISTER 

SEE IF R2 IS POINTING TO MAPL1 

BRANCH IF NOT 

DOES MAPL1 CONTAIN 40000? 

BRANCH IF IT DOES 

CLEAR LOCATION 37776 ONLY - MAPLl IS TO BE LEFT ALONE 

SKIP OVER REGISTER CLEAR STEP 

CLEAR MAP REGISTER JUST TESTED 

POINT TO NEXT MAP REGISTER UNDER TEST 

POINT TO NEXT MAP REGISTER TO LOAD 

SEE IF LAST REGISTER HAS BEEN TRIED 

BRANCH TO NEXT SECTION IF SO 

SEE IF ALL MAP REGS HAVE BEEN TESTED 

BRANCH IF NO MORE TO TEST 

JUMP TO BEGIN AGAIN 

POINT TO NEXT MAP REGISTER UNDER TEST 

POINT TO NEXT MAP REGISTER TO LOAD 

SEE IF LAST REGISTER HAS BEEN TRIED 

BRANCH TO NEXT SECTION IF SO 

SEE IF WE ARE POINTING TO UPPER WINDOW START 

BRANCH FOR ANOTHER INCREMENT SET IF NOT 

JUMP BACK FOR ANOTHER RUN 

SEE IF THERE WERE ANY ERRORS 

.BRANCH TO NEXT TEST IF NO ERRORS 

DON'T COUNT ERROR *16 AS ANOTHER ERROR 

SAME AS ABOVE 

SUMMARY OF DUAL MAPPING ERRORS 
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TEST # 10 - LOAD LOC’S 40000-77776 WITH THEIR ADRES’S 


3411 


S8TTL TEST # 10 - LOAD LOC’S 40000-77776 WITH THEIR ADRES’S 


* TE S T 10 LOAD LOC'S 40000-77776 WITH THEIR ADRES’S 


THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 TO 
ADDRESS 000077776 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 
MEMORY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 
IT FINDS. 





014616 




TST10: 






014616 

000004 




SCOPE 





014620 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 



014624 

015072 

015030 

000010 


.WORD 

T S T 1 1 ,20$, 10 

DATA USED BY PRETST 


3412 

014632 

042737 

000040 

172516 


BIC 

#61 T5.MMR3 

TURN OFF MAP RELOCATION 


3413 

014640 

012737 

000400 

172350 


MOV 

#400.KIPAR4 

MAP PAGE 4 TO 8K 


3414 

014646 

012700 

040000 



MOV 

#40060 , ro 

STARTING ADDRESS FOR DATA PATTERN 


3415 

014652 

012701 

100000 


IS: 

MOV 

#100000. R1 

VIRTUAL ADDRESS 


3416 

014656 

012702 

010000 



MOV 

#4096.. R2 

LOAD 4096 LOCATIONS AT A TIME 


3417 

014662 

010021 



2S: 

MOV 

RO. (R1 )* 

LOAD PHY. ADDR. INTO EACH MEMORY LOC. 


3418 

014664 

062700 

000002 



ADD 

#2. RO 

POINT TO NEXT PHYSICAL ADDRESS 


3419 

014670 

077204 




SOB 

R2.2S 

BRANCH IF 4K OF MEMORY NOT LOADED 


34 20 

014672 

062737 

000200 

172350 


ADD 

#200.XIPAR4 

POINT TO NEXT 4K BANK OF MEMORY 


3421 

014700 

022737 

001000 

172350 


CMP 

#100&.KIPAR4 

SEE IF 16K IS LOADED 


3422 

014706 

101361 




BHI 

1$ 

BRANCH IF MORE MEMORY TO LOAD 


3423 





• * 

• 





3424 





■ * 

• 

MEMORY 

FROM 8K - 16K IS NOW LOADED WITH ITS OW ADDRESS 


342 5 





• * 

# 





3426 

014710 

022737 

171000 

172354 


CMP 

#1 71000. KIPAR6 

DID I USE ANY MAP REGISTER 


3427 








BELOW REGISTER 6 CUB. ADDR 100000) 


3428 

014716 

101465 




BLOS 

TST11 

.■BRANCH TO NEXT TEST IF NOT 


3429 

014720 

013700 

172354 



MOV 

KIPAR6.R0 

LOAD PAR6 INTO RO TO GET 


3430 








THE STARTING DATA PATTERN 


3431 

014724 

072027 

000006 



ASH 

#6,R0 

RO NOW HOLDS THE STARTING DATA PATTERN 


3432 

014730 

012701 

140000 


3S: 

MOV 

#1 40000. R1 

STARTING VIRTUAL ADDRESS 


3433 

014734 

012702 

010000 



MOV 

#4096.. R2 

PREPARE TO READ 4K AT A TIME 


3434 

014740 

011 103 



4$: 

NOV 

(R1>.R3 

READ MAIN MEMORY THROUGH UN I BUS 


3435 

014742 

020003 




CMP 

RO, R3 

SEE IF THE ADDRESSES MATCH 


3436 

014744 

001012 




BNE 

6$ 

BRANCH IF ERROR 


3437 

014746 

022120 



5$: 

CMP 

(R1 ) ♦. (RO) ♦ 

CHANGE VIRTUAL l PHYSICAL ADDRESSES 


3438 

014750 

077205 




SOB 

R2.4$ 

8RANCH IF 4K OF MEMORY NOT READ 


3439 

014752 

062737 

000200 

172354 


ADD 

#200.KIPAR6 

POINT TO NEXT BANK OF 4K THROUGH UNIBUS 


3440 

014760 

022737 

171000 

172354 


CMP 

#1 71000.KIPAR6 

SEE IF THIS POINTS TO 16K PLUS 2 


3441 

014766 

101360 




BHI 

3$ 

BRANCH IF 16K OF MEMORY NOT CHECKED 


3442 

014770 

000430 




BR 

10$ 

TEST FINISHED. BRANCH TO EXIT 


3443 

014772 

011146 



6$: 

MOV 

(RI).-(SP) 

;PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 

3444 

014774 

013746 

172354 



MOV 

KJPAR6,-(SP) 

PUT PAR6 CONTENTS ON STACK FOR SUBROUTINE 

USE 

344 5 

015000 

004737 

003674 



JSR 

PC.ADREXT 

GO SET DATA IN THE 4 WORDS OF ADDROR AND 

ADRAND 

3446 

015004 

010146 




MOV 

RI.-(SP) 

PUT DATA ON STACK FOR DATEXT SUBROUTINE 


3447 

015006 

013746 

1 72344 



MOV 

KIPAR2.-(SP> 

MOVE PAR CONTENTS TO STACK FOR SUBROUTINE 

USE 

3448 

015012 

004737 

003624 



JSR 

PC.DATEXT 

SUBROUTINE TO LOAD DATAOR AND DATAND 


3449 

015016 

010337 

005770 



MOV 

R3.EADRS2 

MOVE DATA IN R3 TO EADRS2 FOR ERROR CALL 


3450 

015022 

005037 

005772 



CLR 

EADRS2+2 

CLEAR UPPER 6 BITS TO PRINT 


3451 

015026 

000403 




BR 

7$ 

BRANCH OVER LOOP ON ERROR SETUP 


3452 

015030 

011103 



20$: 

MOV 

(RD.R3 

READ MAIN MEMORY THROUGH UNIBUS 


3453 

015032 

020003 




CMP 

R0.R3 

SEE IF THE ADDRESSES MATCH 


3454 

015034 

001401 




BEQ 

8$ 

BRANCH IF OK 
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7777 6 WITH THE JR ADRES'S 
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3455 015036 104205 

3456 015040 032777 

3457 015046 001370 

3458 015050 000736 

3459 015052 005737 

3460 015056 001405 

3461 015060 005337 

3462 015064 005337 

3463 015070 104014 


7$: 

001000 164070 8$: 


001320 1 0S: 

001110 

001320 


ERROR -*-205 

BIT 0B1 T9.3SWR 

BNE 201 

BR 5$ 

TST ERRCNT 

BEQ TST11 

DEC JERTTL 

DEC ERRCNT 

ERROR *14 


SEQuENCfc 84 


DIDN'T READ ADDRESSES CORRECTLY FROM UNIBUS 
SEE IF LOOP ON ERROR IS SET 
BRANCH BACK IF SO 
CONTINUE TESTING 

WERE THERE ANY ERRORS ON THIS TEST"’ 

.■BRANCH IF NO ERRORS ON THIS TEST 
DON'T COUNT ERROR *14 AS ANOTHER ERROR 
SAME AS ABOVE 

SUMMARY OF UNIBUS ADDRESS FAILURES 
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TEST #11- MAIN MEMORY TIMEOUT THROUGH MAP 

3472 -S8TTL TEST # 11 - MAIN MEMORY TIMEOUT THROUGH MAP 


**************************************************************** 

•TEST 11 MAIN MEMORY TIMEOUT THROUGH MAP 

• THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 

• TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 

• USABLE MAP REGISTER. WHICH IN THE DEFAULT CASE IS MAP REGISTER 





• * 

» 

* * 

# 

ZERO. 



015072 



TST11 : 



015072 

000004 



SCOPE 



015074 

004737 

005166 


JSR 

PC.PRETST 

GO SET UP PRETEST DATA 

015100 

015140 

015132 

000011 

.WORD 

TST12.20S.il 

DATA USED BY PRETST 

34 7 3 015106 

052737 

000040 

172516 

BIS 

#81 T5.MMR3 

TURN MAP RELOCATION BACK ON 

3474 015114 

005037 

004312 


CLR 

LOEFLG 

CLEAR LOEFLG FOR ERROR LOOP INDICATOR 

3475 015120 

012737 

000074 

001312 

MOV 

#74 .U8M24U 

EXPECTING 74 IN UPPER POSITION OF 11/24 LMA 

3476 015126 

005037 

001310 


CLR 

U8M24L 

FXPECTING ZERO IN LOWER POSITION 

3477 015132 

004737 

020014 

20S 

JSR 

PC.MMTOTM 

GO DO THE TEST 

3478 015136 

104015 



ERROR 

• 1$ 

RETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 
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TEST # 12 - RELOC USING LOWEST USABLE MAP REG THRU UNJ8US 


3489 


S8TTL TEST # 12 - RELOC USING LOWEST USABLE MAP REG THRU UNJ8US 
*TEST 12 RELOC USING LOWEST USA8LE MAP REG THRU UNI8US 

* THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNI8US 

* MAP A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 

* IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 

* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 

* IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 

* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 



015140 

015140 

000004 


TST12: 

SCOPE 



015142 

004737 

005166 


JSR 

PC.PREIST 


015146 

015174 

015154 000012 


.WORD 

TST13.20$.12 

3490 

015154 

005037 

004312 

20$: 

CLR 

LOEFLG 

3491 

015160 

005037 

001312 


CLR 

U8M24U 

3492 

015164 

004737 

004106 

1$: 

JSR 

PC.MAPADD 

♦2ll 

3493 

015170 

104211 



ERROR 

3494 

015172 

000774 



BR 

IS 


GO SET UP PRETEST DATA 
DATA USED BY PRETST 

CLEAR LOEFLG - FLAG USED FOR ERROR RETURN 

CLEAR UPPER LOCATION 

GO DO THE TEST 

RETURN IS HERE FOR ERROR 

GO BACK TO THE SUBROUTINE 
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TEST # 13 - CARRY PROP OF MAP’S RELOC ADDER THRU UNIBUS 
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SBTTL TEST # 13 - CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 
iTEST 13 CARRY PROP OF MAP’S RELOC ADDER THRU UN I BUS 

* EVERY ADDRESS OF THE FORM XXXX0000 IS GENERATED HERE STARTING 

* WITH 00030000 UP TO 17000000. THAT IS, THE FIRST OF EVERY 2K 

* WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 

* WORKING PROPERLY . 


SEQUENCE 87 



015174 

000004 



3504 

015176 

004737 

005166 


3505 





3506 





3507 





3508 




000013 

3509 

015202 

015236 

015210 

3510 


000040 



3511 

015210 

005037 

004312 


3512 

015214 

005037 

001312 


3513 

015220 

012737 

020000 

001310 

3514 

015226 

004737 

004416 


3515 

015232 

104211 



3516 

015234 

000774 



3517 

015236 





TST13: SCOPE 

JSR PC,PRETST 


;GO SET UP PRETEST DATA 


•♦IMPORTANT** : IF THE POSITION OF THIS TEST IS CHANGED, CHANGE THE THIRD 
WORD BELOW TO THE NEW TEST NUMBER THIS TEST WILL OCCUPY. 


0 0 

.WORD 

2$, 20$, 13 
=81 T5 


NEXMEM; 

20$: 

CLR 

LOEFLG 


CLR 

U8M24U 


MOV 

#20000. UBM24L 

IS: 

JSR 

PC , T CPMRA 


ERROR 

♦211 

2$: 

BR 

1$ 


DATA USED BY PRETST 

8IT05 IS NON-EXISTENT MEMORY BIT IN THE CPU ERROR REGISTER 

CLEAR LOEFLG - USED AS AN ERROR RETURN FLAG 

CLEAR UPPER LOCATION 

PUT 20000 IN LOWER LOCATION 

GO DO THE TEST 

RETURN IS HERE IF AN ERROR 

RETURN TO THE TEST 



CKKUAEO 11 / 24 / 4.4 U8I MAP 
UNIBUS MAP SETTUP 


SEQUENCE 88 


3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 
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. SBTTl UNIBUS MAP SETTUP 

THE NEXT 3 TESTS ARE RUN THROUGH THE UN I BUS MAP 


015236 

000004 


USMSU: 

SCOPE 


015240 

105337 

001100 


DECS 

JTSTNM 

015244 

104414 



TBITR 


015246 

032777 

004000 

163662 

BIT 

#8IT11,aSWR 

015254 

001405 



BEQ 

1 J 

015256 

062737 

000005 

001100 

ADD 

#5. JTSTNM 

015264 

000137 

015744 


JMP 

TST21 


LOOP ON PREVIOUS TEST 

DECREMENT JTSTNM - THIS IS NOT A TEST 

RESTORE T-BIT IF IT WAS ON 

SEE IF THIS IS AN 11/24 WITH U8 MEMORY ONLY 

BRANCH TO SETUP IF NOT 

FUDGE JTSTNM 5 TESTS AHEAD AND 

JUMP OVER NEXT 5 TESTS 


THIS CODE SETS UP THE TWO MAP REGISTERS ABOVE THE LOWEST 
USABLE ONE TO POINT TO PHYSICAL MEMORY FROM 0 - 8K. IN THE 
DEFAULT CASE, IN MANUFACTURING AND IF THERE IS NO UNIBUS MEMORY , 
THIS WILL BE MAP REGISTERS 1 AND 2. MAP REGISTER 1 WILL POINT 
TO PHYSICAL 4K - 8K SO "ACT-1 1“ WILL WORK PROPERLY AND MAP 
REGISTER 2 WILL POINT TO PHYSICAL 0 - 4K. THIS MEANS THAT 
KIPARO SHOULD GET 170400 SO IT PUTS ADDRESSES 040000 TO 057776 
ON THE UNIBUS AND KIPAR1 SHOULD GET 170200 SO IT PUTS ADDRESSES 
020000 TO 037776 ON THE UNIBUS. 


015270 

013701 

001302 

1 J : MOV 

LREGU.R1 

015274 

005721 


TST 

(R1 ) ♦ 

01 5276 

012721 

020000 

MOV 

#2 0000. (R1)> 

015302 

005021 


CLR 

(R1 > ♦ 

015304 

005021 


CLR 

(R1 )♦ 

015306 

005021 


CLR 

(R1 > ♦ 

015310 

013701 

001256 

MOV 

LOWEST, R1 

015314 

062701 

000200 

ADD 

#200, R1 

015320 

010137 

172342 

MOV 

R1.K1PAR1 

015324 

062701 

000200 

ADD 

#200. R1 

015330 

010137 

172340 

MOV 

R1 .KIPARO 


PUT POINTER TO LOWEST MAP REGISTER IN R1 
POINT TO LOWER 16 BITS OF LOWEST ♦ 1 
LOAD LOWER 16 BITS OF (LOWEST ♦ 1), POINTING TO 
CLEAR UPPER 6 BITS OF (LOWEST ♦ 1) 

CLEAR LOWER 16 BITS OF (LOWEST ♦ 2) 

CLEAR UPPER 6 BITS OF (LOWEST ♦ 2) 

LOAD R1 

POINT R1 TO (LOWEST ♦ 1) 

LOAD PARI 

POINT R1 TO (LOWEST ♦ 2) 

LOAD PARO 


-8K 
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THROUGH MAP. CODE RUN OVER U.B. 


L 

PAGE 74 


7 


3567 


. S8TTL TEST # 14 - MAIN MEM. T.O. THROUGH MAP. CODE RUN OVER U.B. 

TES**14** MAIN MEM. T.O. THROUGH MAP. CODE RUN OVER U.B. 

THIS TEST GENERATES A TIME OUT THROUGH THE UN I BUS MAP BY TRYING 
TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
USABLE MAP REGISTER. WHICH IN THE DEFAULT CASE IS MAP REGISTER 
ZERO. 

THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
THE UNIBUS MAP. 


015334 

015334 

015336 

000004 

004737 

005166 

TST14: 

SCOPE 

JSR 

PC.PRETST 

015342 

015362 

015354 000014 


.WORD 

TST15.20S.14 

3568 015350 

005037 

004312 


CLR 

loeflg 

3569 015354 

004737 

020014 

20$: 

JSR 

PC.MMTOTM 
♦ 15 

3570 015360 

104015 



ERROR 


GO SET UP PRETEST DATA 

DATA USED BY PRETST 

CLEAR LOOP ON ERROR FLAG 

GO DO TEST ON PAGE 60 OF THIS LISTING 

RETURN HERE IF ERROR - UNIBUS DID /JOT TIME OUT 



SEQUENCE 90 
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TEST # 15 - RELOC USING LOWEST USA8LE MAP REG USING MAP REG 


3584 


S8TTL TEST # 15 - RELOC USING LOWEST USABLE MAP REG USING MAP REG 

West 15 reloc using lowest usable map reg using map reg 

* THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 

* MAP A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 

* IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 

* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 

* IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 

* THAT WAS DESIRPD. AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 

* THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 

* THE UNI8US MAP. 


015362 

015362 

000004 



TST15: 

SCOPE 


GO SET UP PRETEST DATA 

015364 

004737 

005166 



JSR 

PC.PRETST 

015370 

015420 

015404 

000015 


.WORD 

T S T 1 6-20S ,15 
#060000.060000 

DATA USED BY PRETST 

3585 015376 

012737 

060000 

060000 


MOV 

MAKE SURE ADDRESS 060000 CONTAINS ITS OWN ADDRESS AS DATA 

3586 015404 

005037 

004312 


20 J: 

CLR 

LOEFLG 

CLEAR LOEFLG - USED IN ERROR RETURN 

3587 015410 

004737 

004106 


1$: 

JSR 

PC.MAPADD 

GO DO THE TEST 

3588 015414 

104211 




ERROR 

♦211 

RETURN IS HEP E FOR ERROR 

3589 015416 

000774 




BR 

1$ 

RETURN TO THE SUBROUTINE 



N 7 

CKKUAEO 11/24/44 U8I MAP MACRO Ml 113 11 -JAN-82 11:27 PAGE 76 

TEST # 16 - CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 


3598 


SBTTL TEST If 16 - CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 

'TEST 16 CARRY PROP OF MAP'S RELOC ADDER USING MAP REG 

EVERY ADDRESS OF THE FORM XXXXOOOO IS GENERATED HERE STARTING 
WITH 00030000 UP TO 17000000. THAT IS THE FIRST OF EVERY 2K 
WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 
WORKING PROPERLY . 




015420 

015420 

015422 

000004 

004737 

005166 

TST16: 

SCOPE 

JSR 

PC.PRETST 

GO SET UP PRETEST DATA 

015426 

015450 

01S434 000016 


.WORD 

TST17.20S.16 

DATA USED BY PRETST 

3599 015434 

005037 

004312 

20S: 

CLR 

LOEFLG 

CLEAR LOEFLG - USED AS ERROR RETURN F«_AG 

3600 015440 

004737 

004416 

IS: 

JSR 

PC.TCPMRA 

♦2ll 

IS 

GO DO THE TEST 

3601 015444 

3602 015446 

104211 

000774 



ERROR 

BR 

RETURN IS HERE IF AN ERROR 

RETURN TO THE TEST 


SEQUENCE 



SEQUENCE 


r KKUAEO 1 1 /24/A4, uBI MAP MACRO Ml 11 3 11 -JAN-82 11 :2 7 PAGE ?7 8 

TEST # 17 - VERIFY "RAP DUE TO CACHE PARITY INTERRUPT 

5633 . S8TTL TEST # 17 - VERIFY TRAP DUE TO CACHE PARITY INTERRUP’ 

; ‘TEST 17 VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


*******»***note *********** 

THE MAP WILL BE SHUT OFF FOR THE REMAINDER OF THE DIAGNOSTIC 
BEFORE ANY TEST CODE IS EXECUTED. IT IS NOT NEEDED. 


;* THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 

;* SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 

;* OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 

;• THEN BIT 08 OF SSWREG IS SET TO 1 THROUGH APT SCRIPTING. 

;• THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 

;* TO THE UBI MODULE WHICH INDICATES TP THE JBI *HAT A CACHE INTERRUPT 

;* IS BEING CALLED FOR (CACHE PE IN TR L). 

• * 

;• THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI MODULE ARE KNOWN 

;* GOOD MODULES. 

;* THIS TEST TOGETHER WITH OTHER CACHE TESTS. ALLOW MFG. TO ELIMINATE 

;* HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 

;* VERIFY TESTING OF THE UBI MODULE. 

;* TEST DESCRIPTION: 

;* VERIFY INTERRUPT LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 

;* 1H WHEN A LOCATION PREVIOUSLY WRITTEN 

;• WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 

;* CONDITIONS: PEA=0 

;* DCPI=0 

015450 TST17: 


015450 

000004 




SCOPE 





015452 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 



015456 

015610 

015554 

000017 


.WORD 

TST20.20S.17 

DATA USED BY PRETST 



3634 015464 

005037 

177572 



CLR 

MMRO 

TURN OFF MEMORY MANAGEMENT 



3635 015470 

005037 

172516 



clr 

MMR3 

TURN OFF MAP RELOCATION 



3636 015474 

005037 

172340 



CLR 

KIPARO 

PUT PARO BACK WHERE IT SHOULD AND 



3637 015500 

012737 

000200 

172342 


MOV 

#200. K I PARI 

PUT PARI BACK WHERE IT SHOULD 



3638 015506 

105737 

007140 



TSTB 

CPUTYP 

IS THIS AN 11/24? 



3639 015512 

001403 




6EQ 

IS 

BRANCH OVER JUMP IF 11/44 



3640 015514 

105237 

001100 



INC8 

STSTNH 

INCREMENT TEST Nl#®ER TO SIMULATE 

SKIPPING TEST 

3641 015520 

000511 




BR 

TST21 

BRANCH OVER THIS AND NEXT TESTS 



3642 015522 

132737 

000200 

020163 

IS: 

BITS 

#200.SENVM 

IS APT SIZING? 



3643 015530 

001405 




8E0 

2S 

NO; TRY HARDWARE SWITCH REGISTER 



3644 015532 

032737 

000100 

020164 


BIT 

#100. SSWREG 

YES APT IS SIZING; DOE S APT SAY TO 

DO 

THIS TEST 

3645 015540 

001423 




8E0 

TST26 

;N0 - SKIP TEST 



3646 015542 

000404 




BR 

20S 

YES. DO TEST 



3647 015544 

032777 

000100 

163364 

2S : 

BIT 

#ioo.aswR 

DOES HARDWARE SWITCH REGISTER SAY 

TO 

DO TEST? 

3648 015552 

001416 




6EQ 

TST20 

;N0 - SKIP TEST 



3649 015554 

012737 

000005 

005460 

20S : 

MOV 

#5,CASH1 

MOVE BYTE TO LOAD TO CACHE TO SUB 


.DPM002 

3650 015562 

112737 

000001 

005470 


MOVB 

#1 , CASH2 

MOVE TEST 1 TO LOCATION IN SUBROUTINE 

.DPM002 

3651 015570 

004737 

C05324 



JSR 

PC.CASHSR 

GO DO THE CASH TEST 



3652 015574 

012737 

000000 

177746 


MOV 

#0. CACHE 

TURN CACHE ON 



3653 015602 

005703 




TST 

R3 

DID TRAP OCCUR? 



3654 015604 

001401 




BEQ 

TST 20 

.•BRANCH TO NEXT TEST IF YES 





SEQUENCE 95 


CKKUAEO 11/24/44 U8I NAP 
TEST # 17 - VERIFY TRAP DUE 


MACRO Mil 13 1 1 -JAN-82 11 :27 

TO CACHE PARITY INTERRUPT 


3655 015606 104020 


ERROR *20 


C 8 

PAGE 77-1 


;INTERRUPT/A80RT LOGIC TESTS TRAP TO IOC 114 DID NOT OCCUR 


CKKUAEO 11/24/44 U81 MAP 
TEST # 20 - VERIFY TRAP DUE TO 

3689 


015610 

015610 000004 
015612 004737 005166 
015616 015744 015666 

3690 015624 032777 000100 

3691 015632 001437 

3692 015634 132737 000200 

3693 015642 001405 

3694 015644 032737 000100 

3695 015652 001427 

3696 01 5654 000404 

3697 015656 032777 000100 

3698 015664 001422 

3699 015666 012737 000004 

3700 015674 112737 000002 

3701 015702 004737 005324 

3702 015706 022704 177777 

3703 015712 001401 

3704 015714 104021 

3705 

3706 015716 005703 

3 707 015720 001401 


D 8 

MACRO Ml 113 11 -JAN-82 11:27 PAGE 78 SEQUENCE 

CACHE PARITY ABORT 

.SBTTL TEST A 20 - VERIFY TRAP DUE TO CACHE PARITY ABORT 

•West 20 verify trap due to cache parity abort 

;* THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 

;* SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 

;* OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 

;* THEN BIT 08 OF SSWREG IS SET TO 1 THROUGH APT SCRIPTING. 

THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE (BUS PBL) 

;* TO THE UBI MODULE WHICH INDICATES TO THE U8I THAT A CACHE ABORT 

;* IS BEING CALLED FOR. 

;* THIS TEST ASSUMES THAT ALL MODULES EXCEPT U8I ARE KNOWN GOOD MODULES 

;* THIS TEST TOGETHER WITH OTHER CACHE TESTS. ALLOW MFG. TO ELIMINATE 

;* HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
;* VERIFY TESTING OF THE UBI MODULE. 

• * 

;* TEST DESCRIPTION: 

• * 

;* VERIFY ABORT LOGIC BY THE FOLLOWING RESULTS WHEN A LOCATION 

;* PREVIOUSLY WRITTEN WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 

;* 1. INSTRUCTION CYCLE WILL BE ABORTED 

;* 2. THE ABORT CAUSES TRAP TO 114 

;* PROCEDURE: INHIBIT CLOCKING OF PARITY ERROR SIGNAL TO 

;* INTERRUPT LOGIC. ALLOW CMPE<15> TO BE SET 

;* BY ABORT SIGNAL WHICH IS ASSERTED BY PARITY 

;« ERROR SIGNAL TO ABORT LOGIC. 


CONDITIONS: PEA=1 

DCPI=1 





TST20: 

SCOPE 

JSR 

PC.PRETST 

GO SET UP PRETEST DATA 

000020 


.WORD 

TST21.20S.20 

DATA USED BY PRETST 

163304 


BIT 

#8IT6.aSWR 

DOES SWITCH REGISTER SAY TO DO TEST? 



BED 

21$ 

NO - SKIP TEST 

020163 


BITS 

#200.$ENVM 

IS APT SIZING? 



BEO 

12$ 

NO.-TRY HARDWARE SWITCH REGISTER 

020164 


BIT 

#100. SSWREG 

YES APT IS SI ZING; DOES APT SAY TO DO THIS TEST 


BEO 

21$ 

NO - SKIP TEST 



8R 

20$ 

YES, DO TEST 

163252 

12$: 

BIT 

#100.3SWR 

DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 



BEQ 

21$ 

NO - SKIP TEST 

005460 

20$: 

MOV 

#4.CASH1 

MOVE CACHE LOAD VALUE TO LOC IN SUB ;DPH002 

005470 


MOVB 

#2. CASH2 

MOVE 2ND TEST FLAG TO LOCATION IN SUB ;DPM002 



JSR 

PC , CASHSR 

GO DO CACHE TEST 



CMP 

#-1 ,R4 

WAS INSTRUCTION ABORTED LEAVING R4 INTACT? 



BEQ 

1$ 

YES 



ERROR 

♦ 21 

INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 
DATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 


1$: 

TST 

R3 

DID TRAP OCCUR 



BEQ 

2$ 

YES. PASS 



SEQUENCE 95 


CKKUAEO 11/24/44 UBI MAP 
TEST # 20 - VERIFY TRAP DUE 


MACRO Mil 13 11 -JAN-8? 11:27 

TO CACHE PARITY ABORT 


E 8 
PAGE 78-1 


3708 015722 

3709 015724 

3710 015732 

3711 015740 


104022 

012737 

062737 

000137 


000000 177746 
000007 001100 
017164 



ERROR *22 

MOV #0. CACHE 

ADD #7,$TSTNM 

JMP TST30 


INTERRUPT/A80RT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
TURN CACHE ON 

ADD 7 TO STSTNM TO COMPENSATE FOR 7 TESTS SKIPPED 
JUMP OVER NEXT 7 TESTS - THEY ARE FOR AN 11/24 ONLY 



CKKUAEO 11/24/44 U8I MAP MACRO Ml 1 1 3 1 1 -JAN-82 11:27 

TEST * 21 - LMA REGISTER PHYSICAL ADDRESS CHECK 


F 8 
PAGE 79 


SEQUENCE 96 


3724 


S8TTL TEST # 21 - IMA REGISTER PHYSICAL ADDRESS CHECK 
'TEST 21 LMA REGISTER PHYSICAL ADDRESS CHECK 

THE NEXT 7 TESTS ARE EXECUTED ON THE 11/24 ONLY. 

THIS TEST IS TO CHECK OUT THE LMA (LAST MAPPED ADDRESS) REGISTER FOR 
PROPER CONTENTS. FIRST, THE PAR AND MAP REGISTERS ARE SET, THEN A 
PHYSICAL ADDRESS IS LOADED INTO AN EXPECTED DATA LOCATION. THEN THE 
MAP IS INSURED TO BE ON AND A MEMORY ACCESS IS DONE. USING THE MAP 
REGISTER SO THE LMA IS LOADED. THE LMA IS THEN CHECKED FOR CONTAINING 
THE PROPER CONTENTS. CALLING AN ERROR IF EXPECTED DATA DID NOT APPEAR. 



015744 

015744 

000004 



TST21 : 

SCOPE 


015746 

004737 

005166 



JSR 


015752 

016220 

016104 

000021 


.WORD 

3725 

015760 

000416 




BR 

3726 


000002 




.RADIX 

3 727 

015762 

040000 



100$: 

.WORD 

3728 

015764 

057776 




.WORD 

3729 

015766 

052524 




.WORD 

3730 

015770 

045252 




.WORD 

3731 

015772 

043146 




.WORD 

3732 

015774 

057036 




.WORD 

3733 

015776 

040776 




.WORD 

3734 





.EXPECTED RESUI 

3735 

016000 

000000 




.WORD 

3736 

016002 

017776 




.WORD 

3737 

016004 

012524 




.WORD 

3738 

016006 

005252 




.WORD 

3739 

016010 

003146 




.WORD 

3740 

016012 

017036 




.WORD 

3741 

016014 

000776 




.WORD 

3742 


000010 




.RADIX 

3743 

016016 

012701 

015762 


10$: 

MOV 

3744 

016022 

012702 

000007 



MOV 

3745 

016026 

042737 

000001 

177572 


BIC 

3746 

016034 

042737 

000060 

172516 


BIC 

3747 

016042 

013746 

172344 



MOV 

3748 

016046 

013737 

001256 

172344 


MOV 

3749 

016054 

052737 

000060 

172516 


BIS 

3750 

016062 

005037 

172340 



CLR 

3751 

016066 

052737 

000001 

177572 


BIS 

3752 

016074 

005077 

163200 



CLR 

3753 

016100 

005077 

163176 



CLR 

3754 

016104 

017137 

000000 

001174 

20$: 

MOV 

3755 

016112 

026137 

000016 

177734 


CMP 

3756 

016120 

001007 




BNE 

3757 

3758 

016122 

013737 

177736 

001174 


MOV 

016130 

042737 

1 77700 

001174 


BIC 

3759 

016136 

001424 




BEQ 

3760 

016140 

013737 

177734 

005770 

1$: 

MOV 

3761 

016146 

013737 

177736 

005772 


MOV 

3762 

016154 

016137 

000016 

005764 


MOV 

3763 

016162 

005037 

005766 



CLR 


PC.PRETST 

TST22.20S.21 

10$ 

2 

0100000000000000 
0101111111111110 
0101010101010100 
0100101010101010 
0100011001100110 
0101111000011110 
0100000111111110 
rs IN LMALOW: 
0000000000000000 
0001111111111110 
0001010101010100 
0000101010101010 
0000011001100110 
0001111000011110 
0000000111111110 
8 

#100$, R1 
#7.R2 

#8JTO.MMRO 
#60.MMR3 
KIPAR2.-(SP> 
LOWEST ,KIPAR2 
#60,MMR3 
KIPARO 
#81 TO.MMRO 
SLREGL 
3LREGU 
iO(R1 ) ,$TMPO 
16(R1 ) .LMALOW 
1 $ 

LMAHI -$THPO 
#1 77700, $TMPO 
2S 

LMALOW, EADRS2 
LMAHI. EADRS2-2 
1 6 ( R 1 ) .EADRES 
EADRES+2 


GO SET UP PRETEST DATA 
DATA USED BY PRETST 
BRANCH OVER TEST PATTERN TA6LE 
SET RADIX TO BINARY REPRESENTATION 
/SELECT MAP REG 2, ALL BITS CLEAR 

/SELECT MAP REG 2. ALL BITS SET EXC 0 

.•SELECT MAP REG 2, EVEN BITS SET 

.•SELECT MAP REG 2. ODD BITS SET 

.•SELECT MAP REG 2, PAIRS OF BITS SET 

.•SELECT MAP REG 2, 2 SETS OF 4 BITS SET 

.•SELECT MAP REG 2. 8 BITS SET 


DPW002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 

DPM002 


.•EXPECTED RESULT WITH ALL BITS CLEAR 
.•EXPECTED RESULT WITH ALL BITS 1 EXC 
/EXPECTED RESULT WITH EVEN 3ITS SET 
.•EXPECTED RESULT WITH ODD BITS SET 
.•EXPECTED RESULT WITH PAIRS OF BITS SET; 

.■EXPECTED RESULT WITH GRPS OF 4 BITS =1, 

.•EXPECTED RESULT WITH 8 BITS SET 
SET RADIX BACK TO OCTAL 
MOVE TA8LE ADDRESS TO R1 
DO 7 PATTERNS 
TURN OFF MEMORY MANAGEMENT 
TURN OFF 22-BIT AND MAP RELOCATION 
SAVE KIPAR2 

PUT PAR VALUE IN PAR2 TO ACCESS LOWEST MAP REGISTER 

TURN ON 22-BIT AND MAP RELOCATION 

CLEAR PARO FOR PAGE ACCESSING THIS TEST 

TURN ON MEMORY MANAGEMENT 

CLEAR LOWEST USEABLE MAP REGISTER LOW WORD 

CLEAR LOWEST USEABLE MAP REGISTER HIGH WORD 

DO THE MAP REGISTER READ THRU THE MAP ;DPM002 

SEE IF LMA LWR 16 WERE LOADED PROPERLY ;DPM002 

BRANCH TO CALL ERROR IF NOT ;DPM002 

MOVE HI 6 BITS TO $TMPO FOR PREPARATION 

CLEAR ALL BUT LOWER 6 BITS 

BRANCH AROUND ERROR IF OK 

MOVE LOWER 16 BITS OF RECEIVED DATA TO EADRS2 FOR ERROR 
MOVE UPPER 6 BITS OF RECEIVED DATA TO EADRS2+2 FOR ERROR 
MOVE EXPECTED DATA TO EADRES .DPM002 

CLEAR THE UPPER LOCATION 
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CKKUAEO 1 1 /2A/4A US 2 MAP MACRO M1113 11 -JAN-82 11:27 PAGE 79-1 

TEST # 21 - LMA REGISTER PHYSICAL ADDRESS CHECK 


3764 

016166 

011637 

172344 


MOV 

(S P) ,KJPAR2 

3765 

016172 

104023 



ERROR 

♦23 

3766 

016174 

013737 

001256 

172344 

MOV 

LOWEST ,K I PAR2 

3767 

016202 

012703 

004000 


MOV 

#4000. R3 

3768 

016206 

077301 


15$: 

SOB 

R3, 1 5$ 

3769 

016210 

005721 


2$: 

TST 

(R1 ) ♦ 

3770 

016212 

077244 



SOB 

R2.20S 

3771 

016214 

012637 

172344 

3$: 

MOV 

(SP) ♦.KIPAR2 


SEQUENCE 97 


RESTORE KIPAR2 
.MA NOT LOADED PROPERLY 
RESET PAR 2 TO PRE-ERROR SETUP 
MOVE 4000 TO WAIT LOOP COUNTER 
WAIT A LITTLE 

INCREMENT TO NEXT TABLE VALUE ;DPM002 

SUBTRACT 1 AND BRANCH IF NOT DONE YET ;DPN002 
RESTORE KIPAR2 FOR GOOD NOW 



SEQUENCE 


CKKUAEO 11/24/44 UBI MAP 

MACRO Ml 113 11 

-JAN-82 

11:27 PAGE 80 

8 


TEST # 22 - LMA 

FORCE 

JUMPER BIT TEST 





3778 



.S8TTL 

TEST # 

22 - IMA FORCE 

JUMPER BIT TEST 





; ‘TEST 

22 

LMA FORCE JUMPER BI T TEST 





• * 

THIS TEST DETERMINES 

THAT THE FORCE JUMPER BIT Of THE LMA IS 

ZERO J 




; * 

; * 

A SYSTEM RESET. 



016220 



TST22: 





016220 

000004 



SCOPE 




016222 

004737 

005166 


JSR 

PC.PRETST 

;G0 SET UP PRETEST DATA 


016226 

016266 

016234 

000022 

.WORD 

TST23.20f.22 

.•DATA USED BY PRETST 


3779 

000100 


FJ8IT 

= 100 


.•FORCE JUMPER BIT IS BIT 6 


3780 016234 

042737 

000060 

172516 20$: 

61 C 

#60.MMR3 

.-TURN OFF 22-BIT AND MAP RELOCATION 


3781 016242 

000005 



RESET 


.•RESET THE WORLD, CLEARING THE fJBIT 


3782 016244 

032737 

000100 

177736 

BIT 

afjbit.lhahi 

; CHECK THE BIT FOR BEING ZERO 


3783 016252 

001405 



BEQ 

TST23 

; .BRANCH TO NEXT TEST IF OK 


3784 016254 

013701 

177736 


MOV 

LMAHI ,R1 

.-MOVE LMAHI TO R1 FOR ERROR CALL 


3785 016260 

042701 

000100 


BIC 

#f J8IT.R1 

.•CLEAR THE BIT THAT SHOULD HAVE BEEN 

CLEAR 

3786 016264 

104024 



ERROR 

♦24 

;LMA FORCE JUMPER BIT NOT ZERO 




SEQUENCE 99 
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TEST * 21 - SETTING IMA FORCE JUMPER BIT TEST 

3796 .SBTTl TEST # 23 - SETTING IMA FORCE JUMPER BIT TES T 


West 23 setting lha force jumper bit test 

* THIS TEST SETS T HE FORCE JUMPER BIT AND TESTS ITS FUNCTIONAL I TV IF 

* THE JUMPERS ARE NOT IN THEIR DEFAULT STATE. IF NOT ('LOWEST' OR 

* 'HIGEST ' DO NOT CONTAIN THE DEFAULT VALUES OF 170000 OR 177400 

* RESPECTIVELY). THIS TEST INSURES THAT THE PREVIOUSLY DISABLED MAP 

* REGISTERS ARE ENABLED WITH THE FJ BIT SET. 



016266 




TST23: 





016266 

000004 




SCOPE 




016270 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 


016274 

016474 

016302 

000023 


.WORD 

TST24.20S.23 

DATA USED BY PRETST 

3797 

016302 

052737 

000100 

177736 

6* 

O 

OJ 

BIS 

#FJBIT,LMAHI 

SET THE BIT 

3798 

016310 

032737 

000100 

177736 


BIT 

#F J8I T.LMAHI 

SEE IF IT WAS SET 

3799 

016316 

001005 




BNE 

IS 

BRANCH IF SET 

3800 

016320 

013701 

177736 



MOV 

LMAHI.R1 

MOVE LNAHI TO R1 FOR ERROR CALL 

3801 

016324 

052701 

000100 



BIS 

#FJBIT.R1 

SET THE BIT THAT SHOULD HAVE BEEN SET 

3802 

016330 

104025 




ERROR 

♦25 

LMA FORCE JUMPER BIT NOT SET 

3803 

016332 

022737 

1 70000 

001256 

1$: 

CMP 

#170000. LOWEST 

SEE IF MAP REGISTER 0 IS LOWEST 

3804 

016340 

001004 




BNE 

2S 

BRANCH AROUND UPPER LIMIT CHECK IF NOT 

3805 

016342 

022737 

177400 

001260 


CMP 

#1 77400.HIGEST 

SEE IF MAP REGISTER 31 IS HIGHEST 

3806 

016350 

001451 




BEQ 

TST24 

.-BRANCH TO NEXT TEST IF SO 

3807 

016352 

052737 

000060 

172516 

2 S: 

BIS 

#60.MMR3 

TURN ON 22-BIT AND MAP RELOCATION 

3808 

016360 

012737 

016440 

001106 


MOV 

#6S.$LPERR 

RESET LOOP ON ERROR TO 65 

3809 

016366 

013746 

172350 



MOV 

KIPAR4.-(SP> 

SAVE PAR4 

3810 

016372 

013737 

001262 

172350 


MOV 

U8ML0W.KIPAR4 

MOVE LOWEST PAGE OF MEMORY WINDOW TO PAR4 

3811 

016400 

012700 

117776 



MOV 

#1 1 7776.R0 

THIS WILL BE USED TO SELECT PAR4 , ADDRESS 17776 

3812 

016404 

012702 

125252 



MOV 

#125252.R2 

LOAD CONSTANT TO R2 

3813 

016410 

000407 




BR 

5S 

BRANCH OVER LOOP SETUP 

3814 

016412 

062737 

000200 

172350 

4$: 

ADD 

#200.KIPAR4 

MAP TO NEXT REGISTER 

3815 

016420 

023737 

001264 

172350 


CMP 

UBMHI.KIPAR4 

SEE IF HIGHEST HAS BEEN REACHED 

3816 

016426 

001415 




BEQ 

9$ 

BRANCH TO RESTORE PAR4 AND LEAVE TEST IF SO 

3817 

016430 

004737 

003474 


5$: 

JSR 

pc.tstloc 

GO TEST LOCATION FOR WRITE ABILITY 

3818 

016434 

000766 




BR 

4$ 

BRANCH BACK FOR ANOTHER TEST IF LOCATION LOADED 

3819 

016436 

000403 




BR 

7 $ 

BRANCH AROUND LOOP ON ERROR SETUP 

3820 

016440 

004737 

003474 


6$: 

JSR 

PC.TSTLOC 

GO TEST LOCATION FOR WRITEABILITY 

*821 

016444 

000401 




BR 

8$ 

GO TEST FOR LOOP ON ERROR IF OK NOW 

3822 

016446 

104027 



7$: 

ERROR 

♦27 

FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 

382 3 

016450 

032777 

001000 

162460 

8$: 

BIT 

#81 T9.BSWR 

SEE IF LOOP ON ERROR IS STILL SET 

3824 

016456 

001370 




BNE 

6$ 

BRANCH BACK TO LOOP SECTION IF SO 

3825 

016460 

000754 




BR 

4$ 

BRANCH BACK FOR ANOTHER TEST 

3826 

016462 

012637 

172350 


9$: 

MOV 

(SP) ♦.KIPAR4 

RESTORE KIPAR4 

3827 

016466 

042737 

000060 

172516 


BIC 

#60,MMR3 
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TEST # 24 - CLEARING THE FORCE JUMPER BIT 


3833 


S8TTL TEST # 24 - CLEARING THE FORCE JUMPER BIT 
•TEST 24 CLEARING THE FORCE JUMPER BIT 

• THIS TEST CLEARS THE FJ BIT AND INSURES THAT IT IS SUCCESSFULLY CLEARED. 



016474 

016474 

000004 



TST24: 

SCOPE 

PC. PRETST 


016476 

004737 

005166 



JSR 


016502 

016540 

016510 

000024 


.WORD 

TST25.20S.24 

3834 

016510 

042737 

000100 

177736 

20$: 

BIC 

fFJBIT.LMAHI 

3835 

016516 

032737 

000100 

177736 


BIT 

#FJBIT. LMAHI 

3836 

016524 

001405 




BEQ 

TST25 

3837 

016526 

013701 

177736 



MOV 

LMAHI. R1 

3838 

016532 

042701 

000100 



BIC 

#FJBIT.R1 

3839 

016536 

104024 




ERROR 

♦ 24 


GO SET UP PRETEST DATA 
DATA USED BY PRETST 
CLEAR THE BIT 

CHECK TO SEE THAT IT WAS CLEARED 

.•BRANCH IF CLEARED 

MOVE LMAHI TO R1 FOR ERROR CALL 

CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 

LMA FORCE JUMPER BIT NOT ZERO 
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TEST A 25 - LMA CONTROL BITS TEST - DAT I 


3846 





SBTTL 

TEST # 

25 - LMA CONTROL BITS TEST - DAT I 






iTEST 

1 1 1 R k ^ h n i 

25 

LMA CONTROL BITS 

TEST - DAT I 






* 

THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 






* 

* 

DAT I . 




016540 

016540 

000004 


: 

T S T25 ; 

SCOPE 




016542 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 


016546 

016702 

016644 

000025 


.WORD 

TST26.20S.25 

KIPAR2,-(SP) 

#1 70000.KIPAR2 

DATA USED BY PRETST 

3847 

016554 

013746 

172344 



MOV 

SAVE KIPAR2 

3848 

016560 

012737 

170000 

172344 


MOV 

LOAD KIPAR2 

3849 

016566 

012737 

000001 

177572 


MOV 

#1 ,MMRO 
#20.MMR3 

TURN ON MEMORY MANAGEMENT 

3850 

016574 

012737 

000020 

172516 


MOV 

TURN ON 22-81 T ADDRESSING 

3851 

016602 

012700 

056664 



MOV 

#1$>8IT14,R0 

MOVE LOCATION ADDRESS >40000 (TO REF PAR2) TO RO 

3852 

016606 

011001 




MOV 

(RO) ,R1 

DO A DAT I 

3853 

016610 

013737 

177736 

001174 


MOV 

LMAHI.STMPO 

MOVE LMAHI TO STMPO FOR PREPARATION OF EXPECTED 

3854 

016616 

013737 

001174 

001200 


MOV 

STMP0.STMP2 

#3777?.STMP2 

MOVE IT TO STMP2 ALSO 

3855 

016624 

042737 

037777 

001200 


BIC 

CLEAR ALL BUT THE CONTROL BITS 

3856 

016632 

023737 

001174 

001200 


CMP 

STMP0,$TMP2 

SEE IF EXPECTED DATA CAME UP 

3857 

016640 

001416 




BEO 

3$ 

BRANCH TO FINISH TEST IF ALL CLEAR 

3858 

016642 

000410 




BR 

1$ 

BRANCH OVER LOOP ON ERROR SETUP 

3859 

016644 

011001 


20$: 

MOV 

(RO).RI 

DO A DAT I 

3860 

016646 

013737 

177736 

001174 


MOV 

LMAHI.STMPO 

MOVE LMAHI TO STMPO FOR COMPARE 

3861 

016654 

023737 

001174 

001200 


CMP 

STMP0.STMP2 

SEE IF EXPECTED DATA CAME UP 

3862 

016662 

001401 




BEO 

2$ 

BRANCH AROUND ERROR IF IT DID 

3863 

016664 

104026 


1$: 

ERROR 

>26 

LMA CONTROL BITS INCORRECT 

3864 

016666 

032777 

001000 

162242 2$: 

BIT 

#81 T9.8SWR 

SEE If LOOP ON ERROR IS SET 

3865 

016674 

001363 




BNE 

20$ 

BRANCH BACK FOR ANOTHER TRY IF SET 

3866 

016676 

012637 

172344 

3$: 

MOV 

(SP) >,KIPAR2 

RESTORE KIPAR2 
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TEST # 26 - LMA CONTROL BITS TEST - DATO 


3873 




.SBTTl 

TEST # 

26 - LMA CONTROL BITS TEST - DATO 





^ ^ ^ ^ 

; *TEST 

26 

LMA CONTROL BITS 

TEST - DATO 





• 

• * 

THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERL/ DOING A 





• It 

; * 

DATO. 



016702 

016702 

000004 



T S T 26 : 

SCOPE 



016704 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 

016710 

017036 

017000 

000026 


.WORD 

TST27.20S,26 

DATA USED BY PRETST 

3874 

100000 



DATO 

=100000 



3875 016716 

013746 

172344 



MOV 

KIPAR2. - ( SP) 
#170006. KIPAR2 
#1 $+81 T14 ,R0 

SAVE KIPAR2 

3876 016722 

012737 

170000 

172344 


MOV 

LOAD KIPAR2 

3877 016730 

012700 

057020 



MOV 

MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 

3878 016734 

010110 




MOV 

R1 , (RO) 

DO A DATO 

3879 016736 

013737 

177736 

001174 


MOV 

LMAHI.STMPO 

MOVE LMAHI TO $TMPO FOR CONTROL BIT ANALYSIS 

3880 016744 

013737 

001174 

001200 


MOV 

STMP0.STMP2 

MOVE IT IT $TMP2 ALSO 

3881 016752 

052737 

100000 

001200 


81 S 

#DATO, $TMP2 

SET AND CLEAR THE CONTROL BITS EXPECTED TO BE SET 

3882 016760 

042737 

040000 

001174 


81 C 

#BIT14,$TMP0 

AND CLEAR SO $TMP2 WILL CONTAIN THE EXPECTED 

3883 016766 

023737 

001174 

001200 


CMP 

$TMP0.$TMP2 

SEE IF BIT 15 IS SET AND 14 IS CLEAR 

3884 016774 

001416 




BEQ 

3$ 

BRANCH IF OK 

3885 016776 

000410 




BR 

1$ 

GO CALL ERROR 

3886 017000 

010110 



20$: 

MOV 

R1 , (RO) 

DO A DATO 

3887 017002 

013737 

177736 

001174 


MOV 

LMAHI.JTMPO 

MOVE LMA HIGH REGISTER CONTENTS TO $TMPO FOR COMPARE 

3888 017010 

023737 

001 1 74 

001200 


CMP 

$TMP0,$TMP2 

SEE IF EXPECTED CAME UP 

3889 017016 

001401 




BEQ 

2$ 

BRANCH AROUND ERROR IF IT DID 

3890 017020 

104026 



1$: 

ERROR 

+26 

LMA CONTROL BITS INCORRECT 

3891 017022 

032777 

001000 

162106 

2$: 

BIT 

#81 T9.3SWR 

SEE IF LOOP ON ERROR IS SET 

3892 017030 

001363 




BNE 

20$ 

BRANCH BACK FOR ANOTHER TRY IF SET 

3893 017032 

012637 

172344 


3$: 

MOV 

<SP>+.KIPAR2 

RESTORE KIPAR2 
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TEST # 27 - LMA CONTROL BITS TEST - DATOB 


S8TTL TEST # 27 - LMA CONTROL BITS TEST - DATOB 


TEST 27 


LMA CONTROL BITS TEST - DATOB 


THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
DATOB. 



017036 

017036 

000004 


TST27: 

SCOPE 




017040 

004737 

005166 


JSR 

PC.PRETST 

;G0 SET UP PRETEST DATA 


017044 

017164 

017126 000027 


.WORD 

TST30.20S.27 

.-DATA USED BY PRETST 

3901 


140000 


DATOB 

=140000 


.-DATOB CONTROL BITS STATUS=140000 

3902 

017052 

013746 

172344 


MOV 

KIPAR2.-(SP) 

.-SAVE XIPAR2 


017056 
01 706 A 
017070 
017072 
017100 
017106 
017114 
017122 
017124 
017126 
017130 
017136 
017144 
017146 
017150 
017156 
017160 


012737 

012700 

110110 

013737 

013737 

052737 

023737 

001416 

000410 

110110 

013737 

023737 

001401 

104026 

032777 

001363 

012637 


1 70000 
057146 

177736 

001174 

140000 

001174 


177736 

001174 


172344 


001174 

001200 

001200 

001200 


001174 

001200 


001000 161760 
172344 


MOV #1 70000. K I PAR 

MOV #1 S>BI T1 4 ,R0 

MOVB R1 , (RO) 

MOV LMAHI.STMPO 

MOV ITMP0.STMP2 

BIS #DAT0B.STMP2 

CMP STMP0.STMP2 

BEG 3$ 

BR IS 

MOVB R1 . (RO) 

MOV LMAHI.STMPO 

CMP STMP0.STMP2 

BEG 2S 

ERROR *26 

BIT #8IT9.aSUR 

BNE 20* 

MOV (SP)>.KIPAR2 


LOAD KIPAR2 

MOVE LOCATION ADDRESS >40000 (TO REF PAR2) TO RO 
DO A DATOB 

MOVE LMAHI TO STMPO FOR CONTROL BIT CHECK 
MOVE TO STMP2 ALSO 

SET THE EXPECTED DATA BITS INTO STMPO 
SEE IF EXPECTED DATA CAME UP 
BRANCH IF OX 
BRANCH TO CALL ERROR 
DO A DATOB 

MOVE LMA HIGH REGISTER CONTENTS TO STMPO FOR COMPARE 
SEE IF EXPECTED DATA CAMPE UP 
8RANCH IF OX 

LHA CONTROL BITS INCORRECT 
SEE IF LOOP ON ERROR IS SET 
BRANCH BACK FOR ANOTHER TRY IF SET 
RESTORE KIPAR2 


3920 

3921 

3922 

3923 

3924 

3925 

3926 


»NOTE«: 'DATIP' CANNOT BE CHECKED IN THE 11/24 BECAUSE THE LMA IS 
WRITTEN TWICE WHEN A ’DATIP* IS EXECUTED. DESTROYING THE 
’DATIP’ STATE THAT WAS WRITTEN FIRST. 



CMUJAEO 11/24/44 UBI MAP 
MEMORY ON UNIBUS TESTS HEADER 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 
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SEQUENCE 


. SBTTL MEMORY ON UNIBUS TESTS HEADER 


THE NEXT TWO TESTS WILL EXECUTE IF A T IN BIT 5 OF THE SWITCH 
REGISTER IS FOUND SET. IF IT HAS, IT THEN DETERMINES IF THERE IS ANY 
UNIBUS MEMORY - AN ERROR RESULTS IF THERE IS NONE. IF THERE IS MEMORY, 
IT THEN SIZES THE AMOUNT OF MEMORY ON THE UNIBUS, INFORMS THE USER 
HOW MUCH MEMORY IT FOUND ON THE FIRST PASS, THEN SETS AND CLEARS ALt. 
BITS OF ALL LOCATIONS IN THE UNIBUS MEMORY FOUND USING THE ’MARCH’ 
ALGORITHM. 


M7098 FOR THE 11/44, M7134 FOR THE 11/24 
JUMPER SETTINGS FOR THE MAP REGISTERS 


V<<<<<LOWER LIMIT»»>V 
0 0 0 0 0 


V<<<<UPPER LIMI T»»V 
0 0 0 0 0 


W12 


W11 


wio: w9 


W8 


W7 


W6 


W5 


W4 ! W3 


W3-W7 AND W8-W12 ARE THE BINARY-CODED PAGE NUMBER LIMIT (UPPER OR LOWER). 

A JUMPER IN CORRESPONDS TO A LOGIC 'W; A JUMPER OUT TO A LOGIC *T\ TO 
SET THE JUMPERS, DETERMINE WHICH UNIBUS PAGE THE MEMORY RESIDES IN (0 TO 31) 
BY CHECKING WHICH OF THE 5 ADDRESS BITS BA17-8A13 ARE ASSERTED. ALL ZEROS 
IS PAGE 0. 10000 IS PAGE 1, 01000 IS PAGE 2, 11000 IS PAGE 3, ETC. UP TO 
PAGE 31 (11111). FOR THE MEMORY TO BE DETECTED, IT MUST LIE AT OR ABOVE 
THE LOWER LIMIT JUMPER SETTING AND BELOW THE UPPER LIMIT JUMPER SETTING. 

THUS TO HAVE UNIBUS MEMORY IN PAGES 5-9, ONE WOULD SET THE LOWER LIMIT TO 
PAGE 5 (10100) OR WIO AND W12 OUT, AND W8, W9 AND Wll IN, AND THE UPPER LIMIT 
TO PAGE 10 (01010) OR W4 AND W6 OUT. AND W3. W5 AND W7 IN. UNIBUS MEMORY 
MUST BE CONTIGUOUS SINCE NO GAPS ARE PERMITTED. 


104 


4 
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TEST 9 30 - HE HOP* OH UNIBUS TEST 

3972 .SBTTL TEST 9 30 - HEHORV ON UNIBUS TEST 

i iTEST 30 HEHORV ON UNIBUS TEST 

;* THIS TEST FIRST CHECKS TO SEE IF THE UNiBUS HEHORv TESTS HAVE BEEN 

SELECTED. IF NOT. THE EOP IS EZECUTED. II THEN CHECKS FOR UNIBUS 
;* HEHORV EXISTENCE BY CHECKING THAT THE CONTENTS OF LOWEST OR HIGHEST 

;* LOCATIONS IS NOT IN ITS DEFAULT STATE. IF BOTH ARE. an ERROR IS 

;* CALLED AND THE EOP IS EZECUTED. IF EITHER ARE NOT, THE NEXT SECTION 

IS EXECUTED THAT DETERHINES THE SIZE OF THE U8 HEHORV AND TELLS 
USER OF THE RESULTS ON THE FIRST PASS ONLY. 


017164 

017164 

000004 



TST30: 

SCOPE 



017166 

004737 

005166 



JSR 

pl.pretst 

GO SET UP PRETEST DATA 

O’ 71 72 

017412 

017200 

000030 


.WORD 

TST31.20S.30 

DATA USED BV PRETST 

3973 017200 

042737 

000001 

177572 

2 OS: 

BIC 

fl.HHRO 

TURN OFF HEHORV HANAGEHENT 

3974 017206 

032777 

000040 

161722 


BIT 

#8IT5.aSWR 

SEE IF THIS TEST HAS BEEN SELECTED 

3975 017214 

001425 




BEQ 

2S 

BRANCH TO JUHP IF TEST NOT SELECTED 

3976 017216 

012737 

021576 

001362 


HOV 

#$EOP.NXTTST 

POINT TO ESCAPE VECTOR 

3977 017224 

022737 

1 70000 

001256 

IS: 

CHP 

#170000, LOWEST 

SEE IF LOWEST IS LOWEST 

3978 017232 

001020 




BNE 

3S 

GO DO TEST IF IT ISN’T - UNIBUS HEHORV EXISTS 

3979 017234 

022737 

177400 

001260 


CHP 

#1 77400.HIGEST 

SEE IF HIGEST IS HIGHEST 

3980 017242 

001014 




BNE 

3S 

GO DO TEST IF IT ISN’T - UNIBUS HEHORV EXISTS 

3981 017244 

012737 

012744 

001106 


HOV 

#SIZEJO.*LPERR 

HOVE SIZE JUHPER ROUTINE TO LOOP ON ERROR 

3982 017252 

112737 

000007 

001100 


HOVB 

#7.$TSTNH 

EXECUTING AFTER TEST 7 ON LOOPBACK 

3983 017260 

112737 

000007 

020146 


H0V8 

#7,$TESTN 
♦ 17 

EXECUTING AFTER TEST 7 ON LOOPBACK 

3984 017266 

104017 




ERROR 

NO UNIBUS HEHORV EXISTS 

3985 017270 

000137 

021576 


2$: 

JHP 

SEOP 

JUHP TO END OF PASS 

3986 017274 

005037 

001320 


3S : 

CLR 

ERRCNT 

CLEAR THE ERROR COUNT INDICATOR 

3987 017300 

005037 

001330 



CLR 

PCPUER 

CLEAR THE ERROR REGISTER RECEIVER 

3988 017304 

005037 

172516 



CLR 

HHR3 

CLEAR HEHORV HANAGEHENT REGISTER HHR3 

3989 017310 

052737 

000020 

172516 


BIS 

#20.HHR3 

TURN ON 22-BIT HAPPING 

3990 017316 

005037 

172340 



CLR 

KIPARO 

HAP PARO TO 0-4K 

3991 017322 

012737 

000200 

172342 


HOV 

#200.K' t: *A«1 

HAP PARI TO 4-8K 

3992 017330 

013700 

001274 



HOV 

UBRH. ,R<: 

HOVE UBRHI TO RO 

3993 017334 

163700 

001272 



SUB 

UBRLOW.RO 

SUBTRACT U8RL0W FROH IT, AND 

3994 017340 

005200 




INC 

RO 

ADD LAST BLOCK OF 4K TO LOOP COUNTER 

3995 017342 

010037 

001316 



HOV 

RO.NUHGFK 

SAVE RO IN NUHOFK 

3996 017346 

005046 



4S: 

CLR 

-( SP) 

CLEAR THE HAJOR LOOP INDICATOR ON STACK 

3997 017350 

012746 

000200 



HOV 

#200, -(SP) 

HOVE PAR CHANGE TO STACK 

3998 017354 

013746 

001262 



HOV 

ue^LOw.-isp) 

HOVE STARTING PAR VALUE TO STACK 

3999 017360 

012746 

000002 



HOV 

#?,-'SP> 

HOVE INCREHENT VALUE TO STACK 

4000 017364 

GJ5737 

020150 



TST 

S PASS 

SEE IF THIS IS FIRST PASS 

4001 017370 

001010 




BNE 

TSVJJ1 

.-BRANCH TO NEXT TEST IF NOT 

4002 017372 

010046 




HOV 

RO.-iSP) 

HOVE LOOP COUNTER TO THE STACK AND 

4003 017374 

006316 




ASL 

(SP) 

ROTATE ThIS TO THE LEFT 2 PLACES 

4004 017376 

006316 




ASL 

(SP) 

TO INDICATE NUHBER OF K IN OCTAL 

4005 017400 

104401 

006125 



TYPE 

.U8HAVA 

GO TVPE THE UNI-BUS HEHORV AVAILABLE HESSAGE 

4006 017404 

104405 




TVPDS 


GO TVPE THE NUHBER IN DECIHAL 

TYPE A " K” AND <CRLF> 

4007 017406 

104401 

006174 



TYPE 

.U8HEND 

4008 

021576 



T S T 32= 

SEOP 
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TEST # 31 - USING MARCH ALGORITHM. CHECK U8 MEMORY 


SEQUENCE 106 


4015 


S8TTL TEST # 31 - USING MARCH ALGORITHM. CHECK U8 MEMORY 
'test 31 USING MARCH ALGORITHM. CHECK U0 MEMORY 


THIS TEST LOADS PATTERN 125252 INTO ALL LOCATIONS JN UB MEMORY , Tt-EN 
USING THE MARCH ALGORITHM, CHECKS THE MEMORY 



017412 




TST31 : 






017412 

000004 




SCOPE 





017414 

004737 

005166 



JSR 

PC.PRETST 

GO SET UP PRETEST DATA 



017420 

021576 

017530 

000031 


.WORD 

TST 32,20$ .31 

DATA USED BY PRETST 


4016 

017426 

012704 

125252 



MOV 

Afl 25252 , R4 

MOVE FIRST TEST PATTERN TO R4 


4017 

017432 

012705 

052525 



MOV 

#5 2525 . R 5 

MOVE SECOND TEST PATTERN TO R5 


4018 017436 

013737 

001262 

172354 

IS: 

MOV 

UBML0W.KIPAR6 

INITIALIZE PAR6 


4019 017444 

013700 

001316 



MOV 

NUMOFK.RO 

REINITIALIZE LOOP COUNTER RO 


4020 017450 

052737 

0000C1 

177572 


BIS 

A1.MMR0 

T URN ON MEMORY MANAGEMENT 


4021 

017456 

012702 

010000 


2$ : 

MOV 

#10000, R2 

ACCESS ALL WORDS IN THIS 4K BLOCK 


4022 017462 

012703 

140000 



MOV 

#140000. R3 

FIRST ADDRESS OF THIS PAGE 


4023- 

017466 

010423 



3S: 

MOV 

R4,(R3>* 

MOVE THE PATTERN TO THE LOCATION 


4024 

017470 

077202 




SOS 

R2.3S 

SUBTRACT 1 AND BRANCH IF 4K NOT DONE 


4025 

017472 

062737 

000200 

172354 


ADD 

#200,KIPAR6 

MAP TO NEXT 4K BLOCK 


4026 

017500 

077012 




SOB 

RO. 2§ 

•SUBTRACT 1 AND BRANCH IF BLOCKS OF 4K NOT DONE 

4027 

017502 

016637 

000002 

172354 


MOV 

2(SP),KIPAR6 

REINITIALIZE KIPAR6 TO POINT AT BEGINNING 


4028 

017510 

010100 




MOV 

R1.R0 

REINITIALIZE loop counter RO 


4029 

017512 

012702 

010000 


4$: 

MOV 

#10000,R2 

ACCESS ALL WORDS IN THIS 4K BLOCK 


4030 

017516 

012703 

140000 



MOV 

#1 40000, R3 

FIRST ADDRESS OF THIS PAGE 


4031 

017522 

066603 

000006 



ADD 

6(SP).R3 

ADD OFFSET FOR THIS MAJOR PASS 


4032 

017526 

000401 




8R 

5$ 

BRANCH OVER LOOP ON ERROR PREPARATION 


4033 

017530 

010413 



20$: 

MOV 

R4.CR3) 

REWRITE 1ST PATTERN TO LOCATION FOR LOOP ON 

ERROR 

4034 

017532 

020413 



5$: 

CMP 

R4.CR3) 

se: if it was loaded properly 


4035 

017534 

001403 




BEQ 

6$ 

BRANCH AROUND ERROR CALL IF OK 


4036 

017536 

010437 

001204 



MOV 

R4.STMP4 

MOVE EXPECTED DATA TO $TMP4 


4037 

017542 

000405 




BR 

7$ 

GO COMPLETE DATA FETCHING AND CALL ERROR 


4038 

017544 

005113 



6$ : 

COM 

<R3) 

COMPLEMENT THAT LOCATION TO PRODUCE SECOND 

TEST PATTERN 

4039 

017546 

020513 




CMP 

R5.CR3) 

SEE If IT IS THE COMPLEMENT 


4040 

017550 

001417 




BEQ 

ni 

BRANCH AROUND ERROR CALL IF IT IS 


4041 

017552 

010537 

001204 



MOV 

R5.STMP4 

MOVE EXPECTED DATA TO $TMP4 


4042 

017556 

011337 

001206 


7$: 

MOV 

(R$),$TMP5 

MOVE RECEIVED DATA TO $TMP5 


4043 

017562 

005737 

001330 



TST 

PCPUER 

:SEE IF THIS ACCESS TIMED OUT - if IT DID. BRANCH 

4044 

017566 

001010 




BNE 

11$ 

AROUND ERROR CALLS - TIMEOUT ROUTINE LOGGED 

ERROR 

4045 

017570 

010337 

005764 



MOV 

R3.EADRES 

MOVE ADDRESS IN R3 TO EADRES FOR ERROR CALL 


4046 

017574 

104206 



8S : 

ERROR 

♦ 266 

DATA PATTERN NOT CORRECT 


4047 

017576 

000404 




BR 

11$ 

; BRANCH AROUND INCREMENT AND CLEAR INSTRUCTIONS 

4048 

017600 

005237 

001110 


9$: 

INC 

SERTTL 

STILL COUNT THIS AS AN ERROR 


4049 

017604 

005037 

001330 


1 0$: 

CLR 

PCPUER 

CLEAR TIMEOUT RECEIVER 


4050 

017610 

061603 



11$: 

ADD 

(SP), R3 

ADD INCREMENT/DECREMENT VALUE TO R3 


4051 

017612 

077231 




SOB 

R2,5$ 

SUBTRACT 1 AND BRANCH If 4K NOT CHECKED 


4052 

017614 

066637 

000004 

172354 


ADD 

4CSP) .KIPAR6 

MAP TO NEXT 4K BLOCK 


4053 

017622 

077045 




SOB 

R0.4S 

BRANCH BACK IF MORE BLOCKS TO CHECK 


4054 

01 7624 

005766 

000006 



TST 

6 C SP) 

TEST TO SEE IF THIS IS SECOND PASS 


4055 

017630 

001404 




BEQ 

12$ 

BRANCH TO 2ND PASS SETUP IF NOT 


4056 

017632 

062706 

000010 



ADD 

#10, SP 

CLEAN UP STACK 


4057 

017636 

000137 

021576 



JMP 

SEOP 

JUMP TO END OF PASS 


4058 

01 7642 

012766 

017776 

000006 

12$: 

MOV 

#1 7776 , 6 ( SP) 

MOVE 2K WORDS -2 (ALSO 2ND PASS INDICATOR) 

TO STACK 

4059 

017650 

012766 

1 77600 

000004 


MOV 

#—200 . 4 C SP) 

MOVE REVERSE PAR STEP TO STACK 


4060 

017656 

013766 

001264 

000002 


MOV 

U8MHI ,2(SP) 

MOVE LAS T PAR VALUE TO STACK 



SEQUENCE 


CKKUAEO 11 / 24/44 UBI MAP MACRO Mil 13 11:27 

TEST # 31 - USING MARCH ALGORITHM, CHECK U8 MEMORY 


0 9 
PAGE 88-1 


4061 017664 012716 177776 

4062 017670 000662 


MOV #-2.(SP) 

BR IS 


;MOVE DECREMENT VALUE TO STACK 
.-BRANCH BACK FOR SECOND PASS 



CKKUAEO 1 1 /24/44 U8I HAP MACRO M1113 11-JAN-82 11:27 PAGE 

TEST # 31 - USING MARCH ALGORITHM. CHECK U8 MEMORY 


E 

89 


SEQUENCE 108 


4063 

020000 


.=20000 

.-THE 

4064 

4065 

177777 

ADDWO= 

177777 


4066 

177777 

ADDWl = 

177777 


4067 


. S8TTL 

APT PARAMETER 

BLOCK 


000024 

000044 


020000 

000024 

000200 

000044 

020000 

020000 


; THE APT TA8LES NEED TO START AT 20000 - THIS STATEMENT DOES T HAT 


020000 


JAPTHD: 



020000 

000000 

SHIBTS: 

.WORD 

0 

020002 

020142 

SMBADR : 

.WORD 

(MAIL 

020004 

000005 

JTSTM: 

.WORD 

5 

020006 

000010 

JPASTM: 

.WORD 

10 

020010 

000000 

SUNITM: 

.WORD 

0 

020012 

000052 


.WORD 

SETEND 


**************************************************************** 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
-•************************************************************** 

. $X=. ; ; SAVE CURRENT LOCATION 

.=24 ; ; SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ; ; F OR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ; .-POINT TO APT HEADER BLOCK 
. = .$X ; .-RESET LOCATION COUNTER 

**************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 

TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

; ADDRESS OF APT MAILBOX (BITS 0-15) 

;RUN TIM OF LONGEST TEST 

;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$ETEND-$MAIL/2 ; .-LENGTH MAI L80X-E TABLE (WORDS) 



SEQUENCE 109 


F 9 

CKXUAEC 11/24/44 081 MAP MACRO Ml 1 1 3 11-JAN-82 11:27 PAGE 90 

SUBROUTINE T 0 TEST TIMEOUT THROUGH UNIBUS MAP 


4069 






.sbttl 

subroutine to test timeout through unibus map 

<*[Jf u 
4071 

020014 

005737 

004312 


MMTOTM: 

M N N N N N M 

TST 

LOEFLG 

SEE IF THIS ENTRY IS FROM ERROR LOOPING 

4072 

020020 

001402 




8E0 

1$ 

BRANCH IF NOT 

4073 

020022 

062706 

000002 



ADD 

#2.SP 

clean extra return OFF STAC* 

4074 

020026 

005037 

001320 


1$: 

CLR 

ERRCNT 

CLEAR ERRCNT FOR THIS TEST 

4075 

020032 

013737 

001256 

172350 


MOV 

LOWEST,* I PAR4 

LOAD PAR 4 WITH LOWEST USA8LE MAP REG 

4076 

020040 

012777 

000074 

161234 


MOV 

#74.SLREGU 

LOAD UPPER 6 BITS OF LOWEST MAP REG 

4077 

020046 

005077 

161226 



CLR 

8LREGL 

LOAD LOWER 16 BITS OF LOWEST MAP REG 

4078 

020052 

032777 

004000 

161056 


BIT 

#BIT11,8SWR 

SEE IF AN 11/24 WITH JB MEMORY ONLY 

4079 

020060 

001403 




BEQ 

20$ 

BRANCH IF NOT 

4080 

020062 

012737 

177600 

172350 


MOV 

#1 77600, KIPAR4 

RESET KIPAR4 SO A TIMEOUT THROUGH MAP CAN 8E EXPECTED 

4081 

020070 

005037 

001330 


20$: 

CLR 

PCPUER 

CPU ERROR REGISTER LOCATION 

4082 

020074 

012737 

000020 

001326 


MOV 

fTIMOUT.CPUEXP 

expecting timeout in this TEST 

4083 

020102 

013703 

100000 



MOV 

100000, R3 

TRY TO READ THROUGH PAGE 4 THIS REFERENCE WILL GO OUT 

4084 





;0N THE 

UNIBUS 

TO SELECT THE LOWEST USABLE MAP REGISTER (DEFAULT MAP REG. 0). PHYSICAL 

4085 





.•ADDRESS 17700000 IS THEN GENERATED. WHICH SHOULD TIME OUT SINCE I T IS THE FIRST 

4086 





.-NON-EXISTENT 

LOCATION. 


4087 

020106 

005037 

001326 



CLR 

CPUEXP 

CLEAR LOCATION - NO MORE TIMEOUTS FOR A WHILE 

4088 

020112 

022737 

000020 

001330 


CMP 

fTIMOUT. PCPUER 

THE UNIBUS SHOULD HAVE TIMED OUT 

4089 

020120 

001405 




BEQ 

3$ 

BRANCH IF CONDITION WAS CORRECT 

4090 

020122 

011646 



2$: 

MOV 

(SP).-(SP) 

PUSH ANOTHER RETURN ONTO THE STAC* FOR POSSIBLE ERROR 

4091 

020124 

012737 

000001 

004312 


MOV 

#1. loeflg 

SET ERROR LOOP FLAG 

4092 

020132 

000402 




BR 

4$ 

EXIT 

4093 

020134 

062716 

000002 


3$: 

ADD 

M2. ISP) 

CORRECT RETURN PC OVER ERROR CALL 

4094 

020140 

000207 



4S: 

RTS 

PC 

EXIT 



CKKUAEO 11/24/44 U8I MAP 
APT MAI l80X-E TABLE 


MACRO Ml 113 11 -JAN-82 11:27 




.SBTTL 

APT MAIL80X-ET- 



w w w w w 

‘.EVEN 



020142 


SMAIL : 



020142 

000000 

SMSGTY: 

.WORD 

AMSGTY 

020144 

000000 

SFATAL : 

.WORD 

AFATAL 

020146 

000000 

STESTN: 

.WORD 

ATESTN 

020150 

000000 

SPASS: 

.WORD 

APASS 

020152 

000000 

SDEVCT: 

.WORD 

ADEVCT 

020154 

000000 

SUNI T : 

.WORD 

AUNIT 

020156 

000000 

SMS GAD : 

.WORD 

AMSGAD 

020160 

000000 

SMSGLG: 

.WORD 

AMSGLG 

020162 


SETABLE 

: 


020162 

000 

SENV: 

• 8YTE 

AENV 

020163 

000 

SENVM: 

.BYTE 

AENVM 

020164 

000000 

SSWREG: 

.WORD 

ASWREG 

020166 

000000 

SUSWR : 

.WORD 

AUSWR 

020170 

000000 

SCPUOP: 

.WORD 

ACPUOP 


* 


* 

* 


* 


020172 

000 

tMAMSI 

: .BYTE 

AMAMS1 

020173 

000 

$«TYP1 

; * 

• * 

: .BYTE 

AMTYP1 

020174 

000000 

; * 

* * 

iKADRI 

: .WORD 

AMADR1 

020176 

000 

SMAMS2 

.8YTE 

AMAHS 2 

020177 

000 

SMTYP2 

.BYTE 

AMT YP2 

020200 

000000 

SMADR2 

.WORD 

AMADR2 

020202 

000 

SMAMS3 

.BYTE 

AMAH S3 

020203 

000 

SMTYP3 

.BYTE 

AMTYP3 

020204 

000000 

SMADR3 

.WORD 

AMADR3 

020206 

000 

SMAMS4 

.BYTE 

AMAMS4 

020207 

000 

SMTYP4 

.BYTE 

AMTYP4 

020210 

000000 

SMADR4 

.WORD 

AMADR4 

020212 

000000 

SVECT1 

.WORD 

AVECT1 

020214 

000000 

SVECT2 

.WORD 

AVECT2 

020216 

000000 

SBASE 

.WORD 

ABASE 

020220 

000000 

SDEVM 

.WORD 

ADEVM 

020222 

000000 

SCDW1 

.WORD 

ACDW1 

020224 

000000 

SCDW2 

.WORD 

ACDW2 

020226 

177777 

SDDWO 

.WORD 

ADDWO 

020230 

177777 

SDDW1 

.WORD 

ADDW1 

020232 

000000 

SDDW2 

.WORD 

ADDW2 

020234 

000000 

SDDW3 

.WORD 

ADDW3 

020236 

000000 

SDDW4 

.WORD 

ADDW4 

020240 

000000 

SDDW5 

.WORD 

ADDW5 

020242 

000000 

SDDW6 

.WORD 

ADDW6 

020244 

000000 

SDDW7 

.WORD 

ADDW7 

020246 

000000 

SDDW8 

.WORD 

ADDW8 

020250 

000000 

SDDW9 

.WORD 

ADDW9 


G 9 
91 


SEQUENCE 1 1 G 


; ; APT MAILBOX 
; .-MESSAGE TYPE CODE 
;; FATAL ERROR NUMBER 
;;TEST NUMBER 
;;PASS COUNT 
; .-DEVICE COUNT 
; ; I/O UNIT NUMBER 
.-.-MESSAGE ADDRESS 
;; MESSAGE LENGTH 
.-.APT ENVIRONMENT TABLE 
; .-ENVIRONMENT BYTE 
..-ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
; ; CPU TYPE, OPTIONS 
BITS 15-1 1=CPU TYPE 

1 1 /04=01 .11/05=02,11 / 20=03.1 1 /40=04 . 1 1 /45=05 
1 1/70=06. PDQ=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
; ;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE =001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
;;HIGH ADDRESS, 8LKA1 

HEM. LAST ADDR.=3 BYTES. THIS WORD AND LOW OF ’7YPE" ABOVE 
.-.-HIGH ADDRESS.M.S. BYTE 
;; MEM. TYPE .8LK#2 
; ; MEM. LAST ADDRESS, BLKA2 
;;HIGH ADDRESS.M.S. BYTE 
;; MEM. TYPE ,8LK#3 
;; MEM. LAST ADDRESS. BLK#3 
.-.HIGH ADDRESS.M.S. BYTE 
;;MEM.TYPE.BLK#4 
;;MEM.LAST ADDRESS.BLK#4 
;; INTERRUPT VECTORtl.BUS PRIORI TY#1 
.* ; INTERRUPT VECT0R#2BUS PRIORI TY#2 
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST 
; .DEVICE MAP 

;; CONTROLLER DESCRIPTION W0RD#1 
;; CONTROLLER DESCRIPTION W0RD#2 
;; DEVICE DESCRIPTOR WORD#0 
;; DEVICE DESCRIPTOR W0RD#1 
;. DEVICE DESCRIPTOR W0RDR2 
;; DEVICE DESCRIPTOR W0RD#3 
;; DEVICE DESCRIPTOR W0RD#4 
;; DEVICE DESCRIPTOR W0RD#5 
; ;DEVICE DESCRIPTOR W0RD#6 
; .DEVICE DESCRIPTOR W0RDR7 
; ; DEVICE DESCRIPTOR W0RD#8 
; ; DEVICE DESCRIPTOR W0RD#9 



CKKUAEQ 11/24/44 UBI MAP 
APT MAI LBOX-E TABLE 
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SEQUENCE 


020252 

000000 

SDDU10 

.WORD 

ADDW10 

;; DEVICE 

DESCRIPTOR 

WORDflO 

020254 

000000 

SDDW11 

.WORD 

ADDW11 

; .-DEVICE 

DESCRIPTOR 

W0RDA1 1 

020256 

000000 

SDDU12 

.WORD 

ADDWl 2 

;; DEVICE 

DESCRIPTOR 

WORD# 12 

020260 

000000 

SDDW13 

.WORD 

ADDWl 3 

;; DEVICE 

DESCRIPTOR 

W0RDA13 

020262 

000000 

SDDW14 

.WORD 

ADDW14 

; .DEVICE 

DESCRIPTOR 

W0RDA14 

020264 

000000 

SDDW15 

.WORD 

ADDWl 5 

; .-DEVICE 

DESCRIPTOR 

W0RDA15 

020266 


SETEND 








CKKUAEO 11/24/44 Lfil MAP 
SCOPE HANDLER ROUTINE 


SEQUENCE 1 


4097 


I 9 

MACRO H1 113 11 -JAN-82 11:37 PAGE 92 


.S8TTL SCOPE HANDLER ROUTINE 

; *THIS ROUTINE CONTROLS THE LOOPING OF SU8TESTS. IT WILL INCREMENT 
.-•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG- (DISPLAY<7:0>) 
; *AND LOAD THE ERROR FLAG (SERF LG) INTO DISPLAYO 5 :08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 






; *SWl4= 

1 

LOOP ON TEST 







; *SW11 = 

1 

INHIBIT ITERATIONS 





; *SW09= 

1 

LOOP ON ERROR 







; *SW08= 

1 

LOOP ON TEST IN SWR<4:0> 





; *CALL 









• * 

SCOPE 

;;SCOPE=IOT 

020266 




JSC OPE : 





020266 

005037 

001 360 



CLR 

RETRY 

CLEAR RETRY FLAG AN THE START OF EACH TEST 

020272 

005037 

001320 



CLR 

ERRCNT 

CLEAR THE MULTIPLE ERROR COUNTER 

020276 

005037 

001246 



CLR 

DATAOR 

LOCATION FOR LOGICAL OR OF BAD DATA 

020302 

005037 

001236 



CLR 

ADDROR 

LOCATION FOR LOGICAL OR OF ADDRESS 

020306 

005037 

001240 



CLR 

ADDROR+2 

LOCATION FOR UPPER 6 BITS OF LOGICAL OR OF ADDRESS 

020312 

005037 

001254 



CLR 

PAT TOR 

LOCATION FOR LOGICAL OR OF PATTERN LOADED 

020316 

012737 

177777 

001242 


MOV 

#-1 .DATAND 

LOCATION FOR LOGICAL AND OF BAD DATA 

020324 

012737 

177777 

001232 


MOV 

#-1 ,ADRAND 

LOCATION FOR LOGICAL AND OF ADDRESS 

020332 

012737 

000077 

001234 


MOV 

#77,ADRAND*2 

LOCATION FOR UPPER 6 BITS OF LOGICAL AND OF ADDRESS 

020340 

012737 

177777 

001252 


MOV 

#-1 ,PATAND 

LOCATION FOR LOGICAL ANO OF PATTERN LOADED 

020346 

012737 

000077 

005766 


MOV 

#77,EADRES*2 

RESTORE UPPER 6 BIT LOCATION OF EADRES*2 

020354 

012737 

000077 

005772 


MOV 

#77,EADRS2*2 

RESTORE UPPER 6 BIT LOCATION OF EADRS2*2 

020362 

032777 

040000 

160546 

1$: 

BIT 

#8IT14,aSWR 


LOOP ON PRESENT TEST? 

020370 

001134 




8NE 

SOVER 

; YES IF SW14=1 





;###A#START OF 

CODE FOR THE XOR TESTER##### 

020372 

000416 



JXTSTR: 

BR 

6$ 


IF RUNNING ON THE a XOR“ TESTER CHANGE 

THIS INSTRUCTION TO A ''NOP” (N0P=240) 

020374 

013746 

000004 



MOV 

a#ERRVEC,-(SP) 


SAVE THE CONTENTS OF THE ERROR VECTOR 

020400 

012737 

020420 

000004 


MOV 

#5$,8#ERRVEC 
a#1 77060 


SET FOR TIMEOUT 

020406 

005737 

1 77060 



TST 


TIME OUT ON XOR? 

020412 

012637 

000004 



MOV 

(SP) +,a#ERRVEC 


RESTORE THE ERROR VECTOR 

020416 

000503 




BR 

SSVLAD 


GO TO THE NEXT TEST 

020420 

022626 



5$: 

CMP 

(SP)*.<SP)+ 


CLEAR THE STACK AFTER A TIME OUT 

020422 

012637 

000004 



MOV 

(SP) *,a#ERRVEC 


RESTORE THE ERROR VECTOR 

020426 

000443 




BR 

7S 


LOOP ON THE PRESENT TEST 

020430 




6$: ;#####END OF 

CODE FOR THE XOR 

TESTER##### 

020430 

032777 

000400 

160500 


BIT 

#81 T08,aSWR 


LOOP ON SPEC. TEST? 

020436 

001407 




BEQ 

2$ 


BR IF NO 

020440 

017746 

160472 



MOV 

aswR.-(SP) 


SET DESIRED TEST NUM. FROM SWR 

020444 

042716 

000340 



8IC 

#$SWRMK,(SP) 


STRIP AWAY UNDESIRED BITS 

020450 

122637 

001100 



CMP8 

(SP)*.$TSTNM 


ON THE RIGHT TEST? 

020454 

001502 




BEO 

JOVER 


BR IF YES 

020456 

013737 

1 77766 

020700 

2$: 

MOV 

1 77766, CPSAVE 

MOVE CPU ERR REG VALUE TO LOC FOR TST .DPMOOi 

020464 

032737 

000001 

020700 


BIT 

#BI TOO.CPSAVE 

SEE IF THE POWER MONITOR BIT IS ON ;DPH001 

020472 

001406 




BEQ 

2000$ 

BRANCH TO CONTINUE ROUTINE IF CLEAR .DPM001 

020474 

042737 

000001 

177766 


BIC 

#81 TOO, 177766 

CLEAR THE BIT FOUND TO BE SET ;DPM001 

020502 

104177 




EMT 

♦ 177 

CALL SPECIAL POWER FAIL BIT ERROR CALL ;DPM001 

020504 

105037 

001101 



CLRB 

JERFLG 

CLEAR THE ERROR FLAG ;DPM001 

020510 

105737 

001101 


2000$: 

TSTB 

JERFLG 


HAS AN ERROR OCCURRED? 

020514 

001421 




BEO 

3$ 


BR IF NO 

020516 

123737 

001113 

001101 


CMP8 

JERMAX. JERFLG 


MAX. ERRORS FOR THIS TEST OCCURRED? 

020524 

101015 




BHI 

3$ 


BR IF NO 



SEQUENCE 113 
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SCOPE HANDLER ROUTINE 





020526 

032777 

001000 

160402 

BIT 

#81 T09.3SWR 

020534 

001404 



BEQ 

4$ 

020536 

013737 

001106 

001104 

7 S: MOV 

SLPERR.SLPADR 

020544 

000446 



BR 

SOVER 

020546 

105037 

001101 


4$: CLRB 

SERFLG 

020552 

005037 

001212 


CLR 

STIMES 

020556 

000415 



BR 

IS 

020560 

032777 

004000 

160350 

3S : BIT 

#81 T1 1 ,3SUR 

020566 

001011 



BNE 

IS 

020570 

005737 

020150 


TST 

SPASS 

020574 

001406 



BEO 

IS 

020576 

005237 

001102 


INC 

SICNT 

020602 

023737 

001212 

001102 

CMP 

STIMES. SICNT 

020610 

002024 



BGE 

SOVER 

020612 

012737 

000001 

001102 

1$: MOV 

#1 .SICNT 

020620 

013737 

020676 

001212 

MOV 

SMXCNT. STIMES 

020626 

105237 

001100 


SSVLAD : INCB 

STSTNM 

020632 

113737 

001100 

020146 

MOVB 

STSTNM.STESTN 

020640 

011637 

001104 


MOV 

(SP).SLPADR 

020644 

011637 

001106 


MOV 

(SP).SLPERR 

020650 

005037 

001214 


CLR 

SE SCAPE 

020654 

112737 

000001 

001113 

MOVB 

#1 .SERMAX 

020662 

013777 

001100 

160250 

SOVER: MOV 

STSTNM. 80 1 SPLAY 

020670 

013716 

001104 


MOV 

SLPADR.(SP) 

020674 

000002 



RTI 


020676 

000002 



SMXCNT: 2. 


020700 

000000 



CPSAVE: .WORD 

0 


.-LOOP ON ERROR? 

;8R IF NO 

; SET LOOP ADDRESS TO LAST SCOPE 

.-ZERO THE ERROR FLAG 
; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
.•ESCAPE TO THE NEXT TEST 
.•INHIBIT ITERATIONS? 

*BR IF YES 

•IF FIRST PASS OF PROGRAM 

; INHIBIT ITERATIONS 

.•INCREMENT ITERATION COUNT 

.-CHECK THE NUMBER OF ITERATIONS MADE 

;BR IF MORE ITERATION REQUIRED 

.•REINITIALIZE THE ITERATION COUNT.fR 

;SET NUMBER OF ITERATIONS TO DO 

.•COUNT TEST NUMBERS 

.-SET TEST NUMBER IN APT MAILBOX 

.-SAVE SCOPE LOOP ADDRESS 

.-SAVE ERROR LOOP ADDRESS 

.•CLEAR THE ESCAPE FROM ERROR ADDRESS 

.-ONLY ALLOW ONE(I) ERROR ON NEXT TEST 

.•DISPLAY TEST NUMBER 

.FUDGE RETURN ADDRESS 

.FIXES PS 

;MAX. NUMBER OF ITERATIONS 
LOCATION TO SAVE CPU ERR REG CONTENTS 


;DPM001 
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SEQUENCE 114 Cl 

ERROR HANDLER ROUTINE 






T 

4099 




SBTTL ERROR 

HANDLER ROUTINE 







************* 
*THIS ROUTINE 

WILL INCREMENT THE 

ERROR FLAG AND THE ERROR COUNT. 






♦SAVE THE ERROR ITEM NUMBER AND 

THE ADDRESS OF THE ERROR CALL 






■♦AND GO TO ERTYPE ON ERROR 







■♦THE SWITCH OPTIONS PROVIDED BY 

THIS ROUTINE ARE: 






♦SW1 5=1 

HALT ON ERROR 







♦SW1 3=1 

INHIBIT ERROR TYPEOUTS 






♦SW1 0=1 

BELL ON ERROR 







*SW09=1 

LOOP ON ERROR 







♦CALL 








* ERROR 

N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


020702 

000000 



I8SAVE : .WORD 

0 

LOC'N TO HOLD SITEMB DURING DUAL ERR 

DPH001 

020704 

105037 

020702 


►ERROR: CLRB 

IBSAVE 

CLEAR THE ITEM BYTE SAVE LOCATION 

DPMOO 1 

020710 

113737 

001100 

020146 

MOVB 

$TSTNM,$TESTN 

SAVE TEST NUMBER FOR ERROR TYPE OUT 


020716 

005237 

001320 


INC 

ERRCNT 

COUNT ALL MULTIPLE ERRORS 


020722 

010037 

001160 


MOV 

RO.$REGO 

SAVE RO FOR POSSIBLE TYPE OUT 


020726 

010137 

001162 


MOV 

R1.$REG1 

SAVE R1 FOR POSSIBLE TYPE OUT 


020732 

010237 

001164 


MOV 

R2.$REG2 

SAVE R 2 FOR POSSIBLE TYPE OUT 


020736 

010337 

001166 


MOV 

R3.$REG3 

SAVE R3 FOR POSSIBLE TYPE OUT 


020742 

010437 

001 1 70 


MOV 

R4.$REG4 , 

SAVE R4 FOR POSSIBLE TYPE OUT 


020746 

010537 

001172 


MOV 

R5 ,$REG5 

SAVE R5 FOR POSSIBLE TYPE OUT 


020752 

105237 

001101 


?$: INCB 

$ERFLG 

; SET THE ERROR FLAG 


020756 

001775 



BE a 

7$ 

.•DON'T LET THE FLAG GO TO ZERO 


020760 

013777 

001100 

160152 

MOV 

$TSTNM.8DISPLAY 

.•DISPLAY TEST NUMBER AND ERROR FLAG 


020766 

032777 

002000 

160142 

BIT 

#8IT10.8SWR 

.-BELL ON ERROR? 


020774 

001402 



BEQ 

1$ 

;N0 - SKIP 


020776 

104401 

001216 


TYPE 

,$8ELL 

.-RING BELL 


021002 

005237 

001110 


1$: INC 

$ERTTL 

.-COUNT THE NUMBER OF ERRORS 


021006 

011637 

001114 


MOV 

(SP).$ERRPC 

;GET ADDRESS OF ERROR INSTRUCTION 


021012 

162737 

000002 

001114 

SUB 

#2,$ERRPC 



021020 

117737 

160070 

001112 

MOVB 

a$ERRPC.$ITEMB 

.-STRIP AND SAVE THE ERROR ITEM CODE 


021026 

122737 

000177 

001112 

CMPB 

#1 77, $1 TEMB 

SEE IF THIS IS THE POWER FAIL CALL 

DPM001 

021034 

001426 



BEQ 

2001$ 

BRANCH AROUND ROUTINE IF IT IS 

DPMOO 1 

021036 

105737 

020702 


TSTB 

IBSAVE 

SEE IF THIS IS THE 2ND ERROR CALL 

DPMOO 1 

021042 

001021 



BNE 

2000$ 

BRANCH IF SO 

DPMOO 1 

021044 

013737 

177766 

020700 

MOV 

1 77766. CPSAVE 

MOVE CPU ERR REG TO CPSAVE FOR TEST 

DPMOO 1 

021052 

032737 

000001 

020700 

BIT 

#81 TOO. CPSAVE 

SEE IF POWER MONITOR BIT IS SET 

DPMOO 1 

021060 

001414 



BEQ 

2001$ 

BRANCH IF OK 

DPMOO 1 

021062 

042737 

000001 

177766 

BIC 

#81 TOO. 177766 

CLEAR THE BIT FOUND SET 

DPMOO 1 

021070 

113737 

001112 

020702 

MOVB 

$1 TEMB. IBSAVE 

MAKE IBSAVE NON-ZERO FOR DUAL CALL 

DPMOO 1 

021076 

112737 

000177 

001112 

MOVB 

#177.$ITEM8 

SET $ITEMB TO SPECIAL POWER FAIL PNTR 

DPMOO 1 

021104 

000402 



BR 

2001 i 

BRANCH OVER IBSAVE CLEARING 

DPM001 

021106 

105037 

020702 


2000S: CLRB 

IBSAVE 

CLEAR IBSAVE SO AFTER 2ND ERROR. EXIT 

DPMOO 1 

021112 




2001$: 




021112 

032777 

020000 

160016 

BIT 

#BIT13.aSWR 

.-SKIP TYPEOUT IF SET 


021120 

001004 



BNE 

20$ 

; SKIP TYPEOUTS 


021122 

004737 

002026 


JSR 

PC.ERTYPE 

; GO TO USER ERROR ROUTINE 


021126 

104401 

001223 


TYPE 

,$CRLF 



021132 




20$: 




021132 

122737 

000001 

020162 

CMPB 

#APTENV,$ENV 

.•RUNNING IN APT MODE 


021140 

001007 



BNE 

2$ 

; NO. SKIP APT ERROR REPORT 


021142 

113737 

001112 

021154 

MOVB 

$ITEMB.21$ 

.-SET ITEM NUMBER AS ERROR NUMBER 


021150 

004737 

021346 


JSR 

PC.$ATY4 

.■REPORT FATAL ERROR TO API 


021154 

000 



21$: .BYTE 

0 

i 
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021155 

000 




.BYTE 

0 

021156 

000777 



22$: 

BR 

22$ 

021160 

105737 

020702 


2$: 

TSTB 

IBSAVE 

021164 

001004 




BNE 

3$ 

021166 

005777 

157744 



TST 

aswR 

021172 

100001 




BPL 

3$ 

021174 

000000 




HALT 


021176 

032777 

001000 

157732 

3$: 

BIT 

#81 T09.3SWR 

021204 

001405 




BEQ 

4$ 

021206 

105737 

020702 



TSTB 

IBSAVE 

021212 

001257 




BNE 

7$ 

021214 

013716 

001106 



MOV 

$' PERR.(SP) 

021220 

005737 

001214 


4$: 

TST 

$E SCAPE 

021224 

001405 




BEQ 

5$ 

021226 

105737 

020702 



TSTB 

IBSAVE 

021232 

00 ■'747 




BNE 

7$ 

021234 

013716 

001214 



MOV 

SESCAPE . (SP) 

021240 




5$: 



021240 

022737 

022024 

000042 


CMP 

#$ENDAD.9#42 

021246 

001001 




BNE 

6$ 

021250 

000000 




HALT 


021252 




6$: 



021252 

105737 

020702 



TST8 

I8SAVE 

021256 

001235 




BNE 

7$ 

021260 

032777 

001000 

157650 


BIT 

#SW9.9SWR 

021266 

001417 




BEQ 

1000$ 

021270 

012737 

177777 

177766 


MOV 

#-1.CPUERR 

021276 

042737 

177776 

177572 


BIC 

#1 7^776. MMRO 

021304 

012737 

177777 

003032 


MOV 

#-1 .TOFLAG 

021312 

012737 

177777 

003224 


MOV 

#-1 .CPF LAG 

021320 

012737 

1 77777 

003374 


MOV 

#-1 .MMFLAG 

021326 

000002 



1000$: 

RTI 



SEQUENCE PS 


; APT ERROR LOOP 

SEE IF POWER FAIL ERROR CALL ;DPM001 

BRANCH IF NOT - HALT NOT ALLOWED ;DPM001 

; HAL T ON ERROR 
;SKIP IF CONTINUE 
.-HALT ON ERROR! 

.-LOOP ON ERROR SWITCH SET? 

;BR IF NO 

SEE IF THIS IS THE PWR MNTR BIT ERROR ;PPNOOl 
BRANCH BACK IF SO - FUDGING NOT ALL0WED;DPM001 
.•FUDGE RETURN FOR LOOPING 
.•CHECK FOR AN ESCAPE ADDRESS 
;8R IF NONE 

SEE IF THIS IS THE PWR MNTR BIT ERROR ;DPM001 
BRANCH BACK IF SO - FUDGING NOT ALLOWED.-DPMOOI 
.•FUDGE RETURN ADDRESS FOR ESCAPE 

; AC T— 1 1 AUTO-ACCEPT? 

.•BRANCH IF NO 
; YES 

SEE IF THIS IS THE PWR FAIL ERROR CALL .-DPMOOI 
BRANCH BACK TO CALL ORIGINAL ERR IF SO .DPMOOI 
ARE WE LOOPING ON THIS ERROR? 

BRANCH IF NOT 

CLEAR CPU ERROR REGISTER 

CLEAR MEMORY MANAGEMENT STATUS RFGISTER 

INITIALIZE TRAP FLAG 

INITIALIZE CP TRAP FLAG 

initialize MEMORY MANAGEMENT TRAP FLAG 

RETURN TO TEST 
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•SBTTL 

APT COMMUNICATIONS ROUTI 

021330 

112737 

000001 

021574 

iATYl: 

MOVB 

#1. SFFLG 

021336 

112737 

000001 

021572 

SATY3: 

MOVB 

#1, SMFLG 

SATYC 

021344 

000403 




BR 

021346 

112737 

000001 

021574 

SATY4: 

MOVB 

#1, SFFLG 

021354 

021354 

010046 



SATYC: 

MOV 

RO.-(SP) 

021356 

010146 




MOV 

R1 ,-<SP) 

021360 

105737 

021572 



TSTB 

SMFLG 

021364 

001450 




BEQ 

5$ 

021366 

122737 

000001 

020162 


CMPB 

#APTENV,$ENV 

021374 

001031 




BNE 

3$ 

021376 

132737 

000100 

020163 


BITS 

#APTSPOOL .SENVM 

021404 

001425 




BEQ 

3$ 

021406 

017600 

000004 



MOV 

34(SP),R0 

021412 

062766 

000002 

000004 


ADD 

#2,4(SP) 

021420 

005737 

020142 


IS: 

TST 

SMSGTYPE 

021424 

001375 




BNE 

IS 

021426 

010037 

020156 



MOV 

RO.SMSGAD 
(RO) ♦ 

021432 

105720 



2S : 

TSTB 

021434 

001376 




BNE 

2S 

021436 

163700 

020156 



SUB 

SMSGAD.RO 

021442 

006200 




ASR 

RO 

021444 

010037 

020160 



MOV 

RO.SMSGLGT 

021450 

012737 

000004 

020142 


MOV 

#4. SMSGTYPE 

021456 

000413 




BR 

5$ 

021460 

017637 

000004 

021504 

3S : 

MOV 

a4(SP).4$ 

021466 

062766 

000002 

000004 


ADD 

#2,4 (SP) 
17?776.-(SP) 

021474 

013746 

177776 



MOV 

021500 

004737 

022200 



JSR 

PC.STYPE 

021504 

000000 



4$ : 

.WORD 

0 

021 506 




5S : 



021506 

105737 

021574 


10$: 

TSTB 

SFFLG 

021512 

001416 




BEQ 

12$ 

021514 

005737 

020162 



TST 

SENV 

021520 

001413 




BEQ 

1 2$ 

021522 

005737 

020142 


11$: 

TST 

SMSGTYPE 

021526 

001375 




BNE 

IIS 

021530 

017637 

000004 

020144 


MOV 

34 (SP) .SFATAL 

021536 

062766 

000002 

000004 


ADD 

#2.4 (SP) 

021544 

005237 

020142 



INC 

SMSGTYPE 

021550 

105037 

021574 


12$: 

CLRB 

SFFLG 

021554 

105037 

021573 



CLR8 

SLFLG 

021560 

105037 

021572 



CLRB 

SMFLG 

021564 

012601 




MOV 

(SP> ♦ . R1 

021566 

012600 




MOV 

(SP)*,RO 

021570 

000207 




RTS 

PC 

021572 

000 



SMFLG: 

.BYTE 

0 

021573 

000 



SLFLG: 

.BYTE 

0 

021574 

000 



SFFLG: 

.BYTE 

.EVEN 

0 


000200 



APTSIZE 

=200 



000001 



APTENV= 

001 



000100 



APTSPOOL=100 



000040 



APTCSUP 

=040 



SEQUENCE H6 


C» 

Pi 


; ; TO REPORT FATAL ERROR 
; ; T 0 TYPE A MESSAGE 

; ; T 0 ONLY REPORT FATAL ERROR 

; ;PUSH RO ON STACK 
; ; PUSH R1 ON STACK 
;; SHOULD TYPE A MESSAGE? 

; ; I F NOT: BR 
; .-OPERATING UNDER APT? 

; ; I F NOT: BR 

;; SHOULD SPOOL MESSAGES? 

; ; I F NOT: BR 
;;GET MESSAGE ADDR. 

; ; BUMP RETURN ADDR. 

; ; SEE IF DONE W/ LAST XHISSJON? 
; ; I F NOT: WAIT 
; ; PUT ADDR IN MAILBOX 
; ; F J ND END OF MESSAGE 

; ; SUB START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
; ; PUT LENGTH IN MAILBOX 
; ; TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
••BUMP RETURN ADDRESS 
; ; PUSH 177776 ON STACK 
; ; CALL TYPE MACRO 


SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 

I F NOT : BR 

FINISHED LAST MESSAGE? 

IF NOT: WAIT 
GET ERROR # 

;;BUHP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 
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4103 


. SBTTL END OF PASS ROUTINE 


•INCREMENT THE PASS NUMBER (SPASS) 

•INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

•TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY“ 

•WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

•IF SW12=1 INHIBIT TRACE TRAP 

•IF THERES A MONITOR GO TO IT 

•IF THERE ISN’T JUMP TO LOOP 


021576 



SEOP: 


LOOP ON LAST TEST 

021576 

000004 


SCOPE 


021600 

005037 

177572 

CLR 

MMRO ; 

TURN OFF FULL RELOCATION 

021604 

005037 

172516 

CLR 

MMR3 

DISABLE THE UNIBUS MAP 

021610 

104414 


T8JTR 


RESTORE THE T BIT IF IT WAS ON 

021612 

005037 

001100 

CLR 

$TSTNM ; 

.-ZERO THE TEST NLWBER 

021616 

005037 

001212 

CLR 

$TINES 

.-ZERO THE NUMBER OF ITERATIONS 

021622 

005237 

020150 

INC 

SPASS 

.•INCREMENT THE PASS NUMBER 

021626 

042737 

100000 020150 

BIC 

#100000, $PASS 

.•DON’T ALLOW A NEG. NUMBER 

021634 

005327 


DEC 

(PC)* 

.-LOOP? 

021636 

000001 


SEOPCT: .WORD 

1 

:YES 

021640 

003075 


BGT 

$DOAGN 

021642 

012737 


MOV 

(PC)*,i(PC)+ 

.•RESTORE COUNTER 

021644 

000001 


SENDCT: .WORD 

1 


021646 

021636 


JEOPCT 



021650 

104401 

021656 

TYPE 

,65$ 

.•TYPE ASCIZ STRING 

021654 

000407 


BR 

64$ 

;GET OVER THE ASCIZ 



;;65$: - ASCI Z 

<12><1 5>/END PASS 

#/ 

021674 



64$: 



021674 

013746 

020150 

MOV 

SPASS, -(SP) 

.-SAVE SPASS FOR TYPEOUT 
.-TYPE PASS NUMBER 

021700 

104405 


TYPDS 


;G0 TYPE— DECIMAL ASCII WITH SIGN 

021 702 

005737 

001110 

TST 

SERTTL 

SEE IF THERE ARE ANY ERRORS TO REPORT 

021706 

001427 


BEQ 

1000$ 

BRANCH AROUNT MESSAGE PRINT IF NOT 

021710 

104401 

021716 

TYPE 

,67$ 

.TYPE ASCIZ STRING 

021714 

000421 


BR 

66$ 

.-GET OVER THE ASCIZ 



;;6 7$: .ASCIZ 

/ TOTAL ERRORS SINCE LAST REPORT / 

021760 



66$: 



021760 

013746 

001110 

MOV 

SERTTL. -(SP) 

.-SAVE SERTTL FOR TYPEOUT 
.•TOTAL NUMBER OF ERRORS 

021764 

104405 


TYPDS 


;G0 TYPE— DECIMAL ASCII WITH SIGN 

021766 

104401 

001223 

1000$: TYPE 

.SCRLF 

.TYPE CARRIAGE RETURN. LINE FEED 

021772 

005037 

001110 

CLR 

SERTTL 

.'CLEAR ERROR TOTAL 

021776 

013700 

000042 

$GET42: MOV 

3#42.R0 

;GET MONITOR ADDRESS 

022002 

001414 


BEQ 

SDOAGN 

.•BRANCH IF NO MONITOR 

022004 

005046 


CLR 

-(SP) 

.•INSURE THE ,, T“ BIT IS CLEAR 

022006 

012746 

022014 

MOV 

#SCLR.T,-(SP) 

.•SETUP FOR AN RTI OR RTT 

022012 

000426 


BR 

SRTRN 

;G0 DO AN RTI OR RTT TO LOAD THE PSW 
.-WITH A CLEARED "T“ BIT 

022014 



SCLR.T: 



022014 

013700 

000042 

MOV 

S#42.R0 

.•INSURE RO CONTAINS THE MONITORS 

022020 

001405 


BEQ 

SDOAGN 

.•RETURN ADDRESS 

022022 

000005 


RESET 


.-CLEAR THE WORLD 

022024 

004710 


$ENDAD: JSR 

PC.(RO) 

;G0 TO MONITOR 

022026 

000240 


NOP 


.-SAVE ROOM 

022030 

000240 


NOP 


;FOR 


;DPM001 

;DPM001 
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022032 

022034 

000240 



SDOAGN: 

NOP 



ACT11 

022034 

104400 




TRAP 



PUSH OLD PSW AND PC ON STACK 
CLEAR THE "T" BIT 

022036 

042716 

000C20 



BJC 

#20. (SP) 


022042 

032777 

010000 

157066 


BIT 

#81 T1 2.8SWR 


RUN WITH TRACE TRAP? 

022050 

001005 




BNE 

IS 


8R IF NO 

022052 

005137 

022076 



CD* 

ST BIT 


IS IT TIP* FOR TRACE TRAP 

022056 

100402 




b*i 

IS 


8R IF NO 

022060 

052716 

000020 



BIS 

#20, (SP) 


SET TRACE TRAP 

022064 

012746 

022072 


IS: 

NOV 

#SL00P.-(SP) 


JUMP TO START OF TEST 

022070 

000002 



SRTRN: 

RTI 



return— this is changed to 

AN •■RTT" IF '■RTT*’ IS A LEGAL 









INSTRUCTION 

022072 

022072 

000137 



SLOOP: 

JMP 

i<PC>* 


•return 

022074 

010606 



SRTNAD: 

.WORD 

LOOP 



022076 

OOOOOO 



sraiT: 

.WORD 

0 


■*'T" BIT STATE INDICATOR 

022100 

377 

377 

000 

SENULL: 

. 0 V T E 
.EVEN 

-1.-1. 0 


•NULL CHARACTER STRING 


SEQUENCE 
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SAVE AMO RESTORE R0-R5 ROUTINES 
4105 


022104 



022104 

010046 


022106 

010146 


022110 

010246 


022112 

010346 


022114 

010446 


022116 

010546 


022120 

016646 

000022 

022124 

016646 

000022 

022130 

016646 

000022 

022134 

016646 

000022 

022140 

000002 



022142 



022142 

012666 

000022 

022146 

012666 

000022 

022152 

012666 

000022 

022156 

012666 

000022 

022162 

012605 


022164 

012604 


022166 

012603 


022170 

012602 


022172 

012601 


022174 

012600 


022176 

000002 



S8TTL SAVE AND RESTORE RO-R 
• *************************** 

iSAVE R0-R5 
•CALL : 

* SAVREG 

•UPON RETURN FROM SSAVREG TH 

* 

• TOP ( + 16) 

• *2 ( + 18) 


;* +4 R5 


;• +6 R4 


; * +8 R3 


; * ♦ 1 0 R 2 


.•*♦12 R1 


.•*♦14 RO 


SSAVREG: 


MOV 

RO.-(SP) 

MOV 

Rl. -(SP) 

MOV 

R2.-(SP) 

MOV 

R3,-(SP) 

MOV 

R4.-CSP) 

MOV 

R5, -(SP) 

MOV 

22(SP).-(SP) 

MOV 

22(SP),-(SP> 

MOV 

22(SP) ,-(SP) 

MOV 

22($P) ,-(SP) 

RTI 


; ‘RESTORE R0-R5 


.•CALL: 


;* RESREG 


SRESREG: 


MOV 

(SP)*.22(SP) 

MOV 

(SP)*.22(SP) 

MOV 

(SP)*,22(SP) 

MOV 

(SP)*.22(SP) 

MOV 

(SP)*. P5 

MOV 

(SP)*. R4 

MOV 

(SP) * ,R5 

MOV 

(SP) * ,R2 

MOV 

(SP>*. R1 

MOV 

(SP)* .RO 

RTI 



ROUTINES 

*»***********»»•*»»•••»»»•*••*••••» 


STACK WILL LOOK LIKE: 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R 2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE PS OF MAIN FLOW 
SAVE PC OF MAIN FLOW 
SAVE PS OF CALL 
SAVE PC OF CALL 


RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
°OP STACK INTO RO 


SEQUENCE 
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S8TTL TYPE ROUTINE 

•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•N0TE1 : SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

•N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

•CALL: 

*1) USING A TRAP INSTRUCTION 






• * 

; *0R 
• * 

TYPE 

.ME SADR 

; ; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 





TYPE 







• * 

ME SADR 



022200 

105737 

001155 


STYPE: 

TSTB 

$TPFLG 

; ; I S THERE A TERMINAL? 

022204 

100002 




BPL 

1$ 

;;BR IF YES 

022206 

000000 




HALT 


; ; HAL T HERE IF NO TERMINAL 

022210 

000430 




BR 

3$ 

.-.LEAVE 

022212 

010046 



1$: 

MOV 

ro.-:sp) 

.-.-SAVE RO 

022214 

01 7600 

000002 



MOV 

i2(SP). RO 

; ; GE T ADDRESS OF ASCIZ STRING 

022220 

122737 

000001 

020162 


CMP8 

*APTENV.$ENV 

; .-RUNNING IN APT MODE 

022226 

001011 




BNE 

62$ 

; ;NO.GO CHECK FOR APT CONSOLE 

022230 

132737 

000100 

020163 


BITS 

0APTSPOOL ,$ENVM 

;; SPOOL MESSAGE TO APT 

022236 

001405 




BEQ 

62$ 

;;NO,GO CHECK FOR CONSOLE 

022240 

010037 

022250 



MOV 

R0,61$ 

;; SETUP MESSAGE ADDRESS FOR APT 

022244 

004737 

021336 



JSR 

PC ,$ATY3 

.-.-SPOOL MESSAGE TO APT 

022250 

000000 



61$: 

.WORD 

0 

;; MESSAGE ADDRESS 

022252 

132737 

000040 

020163 

62$: 

BITS 

#AP T C SUP , $E NVM 

.-.-APT CONSOLE SUPPRESSED 

022260 

001003 




BNE 

60$ 

;; YES. SKIP TYPE OUT 

022262 

112046 



2$: 

MOVB 

(RO)*.-(SP> 

.-.-PUSH CHARACTER TO BE TYPED ONTO STACK 

022264 

001005 




BNE 

4$ 

; ;8R IF IT ISN’T THE TERMINATOR 

022266 

005726 




TST 

(SP> + 

; ; I F TERMINATOR POP IT OFF THE STACK 

022270 

012600 



60$: 

MOV 

(SPJ+.RO 

; .-RESTORE RO 

022272 

062716 

000002 


3$: 

ADD 

#2. (SP) 

;; AD JUST RETURN PC 

022276 

000002 




RTI 


.-.-return 

022300 

122716 

00001 1 


4$: 

CMPB 

#HT.(SP) 

;; BRANCH IF <HT> 

022304 

001430 




BEQ 

8$ 


022306 

122716 

000200 



CMPB 

#CRLF.(SP> 

;; BRANCH IF NOT <CRLF> 

022312 

001006 




BNE 

5$ 


022314 

005726 




TST 

(SP>* 

; ; POP <CRXLF> EQUIV 

022316 

104401 




TYPE 


.-.-TYPE A CR AND LF 

022320 

001223 




$CRLF 



022322 

105037 

022540 



CLRB 

$CHARCNT 

;; CLEAR CHARACTER COUNT 

022326 

000755 



BR 

2$ 

;;GET NEXT CHARACTER 

022330 

004737 

022412 


5$: 

JSR 

PC ,$TYPEC 

; ; GO TYPE THIS CHARACTER 

022334 

123726 

001154 


6$: 

CMP8 

$FILLC.(SP)+ 

; ; I S IT TIME FOR FILLER CHARS.? 

022340 

001350 




BNE 

2$ 

; ; I F NO GO GET NEXT CHAR. 

022342 

013746 

001152 



MOV 

SNULL.-(SP) 

.-.-GET * OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 

022346 

105366 

000001 


7$: 

DECS 

1(SP) 

.-.DOES A NULL NEED TO BE TYPED? 

022352 

002770 




BLT 

6$ 

;;BR IF NO— GO POP THE NULL OFF OF STACK 

022354 

004737 

022412 



JSR 

PC ,$TYPEC 

; ; GO TYPE A NULL 

022360 

105337 

022540 



DEC8 

$CHARCNT 

;;D0 NOT COUNT AS A COUNT 

022364 

000770 




BR 

7$ 

; ; L OOP 





.HORIZONTAL TAB 

PROCESSOR 

;; REPLACE TAB WITH SPACE 

022366 

112716 

000040 


8$: 

M0V8 

#' ,(SP) 
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022372 

004737 

022412 


9$: 

JSR 

PC , $ T Y PE C 

; ; TYPE A SPACE 


022376 

132737 

000007 

022540 


BITB 

#7,$CHARCNT 

; .’BRANCH IF NOT AT 


022404 

001372 




BNE 

9$ 

; ; T AS STOP 


022406 

005726 




TST 

(SP)* 

; ; POP SPACE OFF STACK 


022410 

000724 




BR 

2$ 

;;GET NEXT CHARACTER 


022412 




STYPEC : 





022412 

105777 

156524 



TSTB 

3STKS 

; ; CHAR IN KYBD BUFFER? 

HJD001 

022416 

100022 




BPL 

10$ 

; ;8R IF NOT 

HJD001 

022420 

017746 

156520 



MOV 

aSTKB.-(SP) 

; ; GE T CHAR 

MJD001 

022424 

042716 

1 77600 



BIC 

#177600, (SP) 

; ; STRIP EXTRANEOUS BITS 

MJDOOI 

022430 

122716 

000023 



CMPB 

#$XOF F , ( SP) 

; ; WAS CHAR XOFF 

MJD001 

022434 

001012 




BNE 

102$ 

; ;BR IF NOT 

MJD001 

022436 




101$: 




MJD001 

022436 

105777 

156500 



TSTB 

a$TKS 

; ; JAIT FOR CHAR 

MjDOOI 

022442 

100375 




BPL 

101$ 


MJD001 

022444 

117716 

156474 



MOVB 

a$TK8. (SP) 

; ; GE T CHAR 

MJDOOI 

022450 

042716 

1 77600 



BIC 

#177600, (SP) 

; ; STRI IT 

MJDOOI 

022454 

122716 

000021 



CMPB 

#$XON.(SP) 

; ; WAS IT XON? 

MJDOOI 

022460 

001366 




BNE 

101$ 

;;8R IF NOT 

MJDOOI 

022462 




102$: 




MJDOOI 

022462 

005726 




TST 

(SP)* 

; ; F I X STACK 

MJDOOI 

022464 




10$: 




MJDOOI 

022464 

105777 

156456 



TSTB 

a$TPS 

;;WAIT UNTIL PRINTER IS READY 


022470 

100375 




BPL 

10$ 


MJDOOI 

022472 

126627 

000002 

000021 


CMPB 

2(SP) ,#$XON 

; ; IS CHARACTER A RANDOM XON? 

RAN001 

022500 

001420 




BEQ 

$TYPEX 

.-.BRANCH IF YES 

RAN001 

022502 

116677 

000002 

156440 


MOVB 

2(SP).a$TPB 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 


022510 

122766 

000015 

000002 


CMPB 

#CR.2(SP) 

; ; I S CHARACTER A CARRIAGE RETURN? 


022516 

001003 




BNE 

1$ 

.-.'BRANCH IF NO 


022520 

105037 

022540 



CLR8 

$CHARCNT 

;;»ES— CLEAR CHARACTER COUNT 


022524 

000406 




BR 

STYPEX 

; ; EXI T 


022526 

122766 

000012 

000002 

1$: 

CMP8 

#Lf ,2(SP) 

;; IS CHARACTER A LINE FEED? 


022534 

001402 




BEQ 

STYPEX 

;; BRANCH IF YES 


022536 

105227 




INCB 

(PC)* 

;; COUNT THE CHARACTER 


022540 

000000 



$CHARCNT : . WORD 

0 

;; CHARACTER COUNT STORAGE 


022542 

000207 



STYPEX: 

RTS 

PC 





SEQUENCE 1 22 
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.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

♦STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DICITS TO type 

♦CALL: 


* MOV NUM.-(SP) 

* TYPOS 

* .BYTE N 

* .BYTE M 


NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M=1 OR 0 


* 

* 


;;1=TYPE LEADING ZEROS 
; ;0=SUPPRESS LEADING ZEROS 


♦JTYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦JTYPOS OR JTYPOC 
♦CALL: 

* MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

♦ TYPON ;;CALL FOR TYPEOUT 


♦STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

♦CALL: 






; * MOV 

NUM.-(SP) 

.-NUMBER TO BE TYPED 





;* TYPOC 


.-CALL FOR TYPEOUT 

022544 

017646 

000000 


JTYPOS: MOV 

S(SP).-(SP) ; 

; PICKUP THE MODE 

022550 

116637 

000001 

022767 

MOVB 

1 (SP) .JOFILL ; 

.-LOAD ZERO FILL SWITCH 

022556 

112637 

022771 


M0V8 

(SP)+,JOMODE*1 

.NUMBER OF DIGITS TO TYPE 

022562 

062716 

000002 


ADD 

02 , (SP) 

; ADJUST RE T URN ADDRESS 

022566 

000406 



BR 

$ TYPON 


022570 

112737 

000001 

022767 

STYPOC: MOVB 

#1. JOFILL 

.-SET THE ZERO FILL SWITCH 

022576 

112737 

000006 

022771 

MOVB 

#6. JOMODE*1 

;SET FOR SIX(6) DIGITS 

022604 

112737 

000005 

022766 

$ TYPON: MOVB 

#5.S0CNT 

;SET THE ITERATION COUNT 

022612 

010346 



MOV 

R3.-(SP) 

.-SAVE R3 

0226 1 4 

010446 



MOV 

R4.-(SP) 

.-SAVE R4 

0226. o 

010546 



MOV 

R5. -(SP) 

.-SAVE R5 

022620 

113704 

022771 


MOVB 

JQMODEO.R4 ; 

.-GET THE NUMBER OF DIGITS TO TYPE 

022624 

005404 



NEG 

R4 


022626 

062704 

000006 


ADD 

#6.R4 

.SUBTRACT IT FOR MAX. ALLOWED 

022632 

110437 

022770 


MOVB 

R4.J0M0DE 

.-SAVE IT FOR USE 

022636 

113704 

022767 


MOVB 

JOFILL. R4 

.-GET THE ZERO FILL SWITCH 

022642 

016605 

000012 


MOV 

1 2 ( SP > ,R5 

.-PICKUP THE INPUT NUMBER 

022646 

005003 



CLR 

R3 

.-CLEAR THE OUTPUT WORD 

022650 

006105 



1$: ROL 

R5 

.-ROTATE MSB INTO "C" 

022652 

000404 



BR 

3$ 

;G0 DO MSB 

022654 

006105 



2$: ROL 

R5 

.FORM THIS PIGI T 

022656 

006105 



ROL 

R5 


022660 

006105 



ROL 

R5 


022662 

010503 



MOV 

R5.R3 


022664 

006103 



3S: ROL 

R3 

.-GET LSB OF THIS DIGIT 

022666 

105337 

022770 


DECS 

JOMODE 

.-TYPE THIS DIGIT? 

022672 

100016 



BPL 

7J 

;BR IF NO 

022674 

042703 

177770 


BIC 

#1 77770, R3 

.-GET RID OF JUNK 

022700 

001002 



BNE 

4J 

.-TEST FOR 0 

022702 

005704 



TST 

R4 

.-SUPPRESS THIS 0? 

022704 

001403 



BEQ 

5$ 

;8R IF YES 

022706 

005204 



4J: INC 

R4 

.-DON’T SUPPRESS ANYMORE O’S 

022710 

052703 

000060 


BIS 

#’0,R3 

.-MAKE THIS DIGIT ASCII 

022714 

052703 

000040 


5$: BIS 

#’ ,R3 

;MAKE ASCII IF NOT ALREADY 
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022720 

110337 

022764 

MOVB 

R3.8S 

iOCNT 

022724 

104401 

022764 

TYPE 

022730 

105337 

022766 

7$: DECB 

022734 

003347 


BGT 

2$ 

022736 

002402 


BLT 

6$ 

022740 

005204 


INC 

R4 

022742 

000744 


BR 

2$ 

022744 

012605 


6$: MOV 

( SP ) ♦ ,R5 

022746 

U12604 


MOV 

(SP) ♦ ,R4 

022750 

012603 


MOV 

(SP) ♦ ,R3 

022752 

016666 

000002 000004 

MOV 

2(SP) .4 (SP) 

022760 

022762 

012616 

000002 


MOV 

RTI 

(SP)*-. (SP) 

022764 

000 


8$: .BYTE 

0 

022765 

000 


.BYTE 

0 

022766 

000 


SOCNT : .BYTE 

0 

022767 

000 


SOF ILL -* .BYTE 

0 

022770 

000000 


SOMODE: .WORD 

0 


SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT 8Y 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN’T A BLANK 

GO DO THE LAST DIGIT 

RESTORE R5 

RESTORE R4 

RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
; NUMBER OF DIGITS TO TYPE 


SEQUENCE 
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S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 

•CALL: 






• * 

0 

MOV 

NUM, -(SP) 

;PUT THE BINARY NUMBER ON THE STACK 





• * 

0 

TYPDS 

0 

;G0 TO THE ROUTINE 

022772 

022772 

010046 



ST VPDS : 

MOV 

RO.-(SP) 

;PUSH RO ON STACK 

022774 

010146 




MOV 

Rl.-(SP) 

.-PUSH R1 ON STACK 

022776 

010246 




MOV 

R2,-(SP) 

.-PUSH R2 ON STACK 

023000 

010346 




MOV 

R3.-(SP) 

.-PUSH R3 ON STACK 

023002 

010546 




MOV 

R5,-(SP) 

M20200 ,~(SP) 

.-PUSH R5 ON STACK 

023004 

012746 

020200 



MOV 

;SET BLANK SWITCH AND SIGN 

023010 

016605 

000020 



MOV 

20(SP).R5 

;GET THE INPUT NUMBER 

023014 

100004 




BPL 

IS 

;8R IF INPUT IS POS. 

023016 

005405 




NEG 

R5 

.MAKE THE BINARY NUMBER POS. 

023020 

112766 

000055 

000001 


MOVB 

#'-.1(SP) 

.MAKE THE ASCII NUMBER NEG. 

023026 

005000 



IS: 

CLR 

RO 

.-ZERO THE CONSTANTS INDEX 

023030 

012703 

023206 



MOV 

#SDBLK,R3 
#' .(R3)* 

.•SETUP THE OUTPUT POINTER 

023034 

112723 

000040 



MOVB 

.-SET THE FIRST CHARACTER TO A BLANK 

023040 

005002 



2S: 

CLR 

R 2 

.CLEAR THE BCD NUMBER 

023042 

016001 

023176 



MOV 

SDT8L (RO) .R1 

;GET THE CONSTANT 

023046 

160105 



3S: 

SUB 

R1.R5 

.-FORM THIS BCD DIGIT 

023050 

002402 




BLT 

4$ 

;BR IF DONE 

023052 

005202 




INC 

R2 

.INCREASE THE BCD DIGIT BY 1 

023054 

000774 




BR 

3S 


023056 

060105 



4S: 

ADD 

R1.R5 

.-ADD BACK THE CONSTANT 

023060 

005702 




TST 

R 2 

.•CHECK IF BCD DIGIT=0 

023062 

001002 




BNE 

5S 

.-FALL THROUGH IF 0 

023064 

105716 




TSTB 

(SP) 

.•STILL DOING LEADING O'S? 

023066 

100407 




BMI 

7S 

;BR IF YES 

023070 

106316 



5S: 

ASLB 

(SP) 

;MSD? 

023072 

103003 




BCC 

6S 

;8R IF NO 

023074 

116663 

000001 

177777 


MOVB 

1 (SP) ,-1 (R3) 
m'0,r$ 

; YES— SET THE SIGN 

023102 

052702 

000060 


6$: 

BIS 

.•MAKE THE BCD DIGIT ASCII 

023106 

052702 

000040 


7 S: 

BIS 

*' .R2 

.-MAKE IT A SPACE IF NOT ALREADY A DIGIT 

023112 

110223 




MOVB 

R2.(R3)* ; 

.-PUT THIS CHARACTER IN THE OUTPUT BUFFER 

023114 

005720 




TST 

(RO) + 

;JUST INCREMENTING 

023116 

020027 

000010 



CMP 

ro.aio 

.•CHECK THE TABLE INDEX 

023122 

002746 




BLT 

2S 

;G0 DO THE NEXT DIGIT 

023124 

003002 




8GT 

8S 

;G0 TO EXIT 

023126 

010502 




MOV 

R5.R2 

;GET THE LSD 

023130 

000764 




BR 

6S 

;G0 CHANGE TO ASCII 

023132 

105726 



8S: 

TSTB 

(SP)* 

;WAS THE LSD THE FIRST NON-ZERO? 

023134 

100003 




BPL 

9S 

;8R IF NO 

023136 

116663 

177777 

177776 


MOVB 

-1 (SP) ,-2(R3) 

; YES — SET THE SIGN FOR TYPING 

023144 

105013 



9S : 

CLRB 

(R3) 

;SET THE TERMINATOR 

023146 

012605 




MOV 

(SP)+,R5 

;POP STACK INTO R5 

023150 

012603 




MOV 

(SP)*,R3 

;POP STACK INTO R3 

023152 

012602 




MOV 

(SP)* ,R2 

.-POP STACK INTO R2 

023154 

012601 




MOV 

(SP) ♦ ,R1 

.-POP STACK INTO R1 

023156 

012600 




MOV 

(SP)*,RO 

.-POP STACK INTO RO 

023160 

104401 

023206 



TYPE 

,$DBLK 

.-NOW TYPE THE NUMBER 
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023164 

Cl 6666 000002 

000004 

MOV 

2(SP) ,4(SP) 

023172 

012616 


MOV 

(SP)*.(SP) 

023174 

000002 


RTI 


023176 

023420 

SDT8L: 

10000. 


023200 

001750 


1000. 


023202 

000144 


100. 


023204 

000012 


10. 


023206 


SD8LK: 

.BIKW 

4 


SEQUENCE 125 


; .-ADJUST THE STACK 
;; RE TURN TO USER 
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SBTTL 

TTY INPUT ROUTINE 






ENABL 

LSB 







DSABL 

LSB 







•THIS 

ROUTINE 

WILL INPUT A 

SINGLE CHARACTER FROM THE TTY 





•CALL: 








* 

RDCHR 


;; INPUT A SINGLE CHARACTER FROM THE TTY 





* 

RETURN 

HERE 

;; CHARACTER IS ON THE STACK 





* 



; ;WITH PARITY BIT STRIPPED OFF 

023216 

011646 


iRDCHR: 

MOV 

(SP),-(SP) 

; ; PUSH DOWN THE PC 

023220 

016666 

000004 

000002 


MOV 

4(SPJ,2(SP) 

; ; SAVE THE PS 

023226 

105777 

155710 

1$: 

TSTB 

aSTKS 

;:UAIT FOR 

023232 

100375 




BPL 

IS 

;;A CHARACTER 

023234 

117766 

155704 

000004 


MOVB 

a$TK8,4(SP) 

;;READ THE TTY 

023242 

042766 

177600 

000004 


BIC 

# A C<177>,4(SP) ; ; GE T RID OF JUNK IF ANY 

023250 

026627 

000004 

000023 


CMP 

4(SP).#23 

; ; I S IT A CONTROL-S? 

023256 

001013 




BNE 

3S 

; ; BRANCH IF NO 

023260 

105777 

155656 

2S: 

TSTB 

8STKS 

;;WAIT FOR A CHARACTER 

023264 

100375 




BPL 

2S 

;;LOOP LSNTIL ITS THERE 

023266 

117746 

155652 



MOVB 

aSTKB.-(SP) 

;;GET CHARACTER 

023272 

042716 

177600 



BIC 

# A C177.(SP) 

; ;MAKE IT 7-BIT ASCII 

023276 

022627 

000021 



CMP 

(SP>*.#2 1 

; ; I S IT A C0N1R0L-Q? 

023302 

001366 




BNE 

2S 

; ; I F NOT DISCARD IT 

023304 

000750 




BR 

IS 

; ; YES. RESUME 

023306 

026627 

000004 

000021 3$: 

CFP 

4(SP) ,#SXON 

; ; IS IT A RANDOM XON? 

023314 

001744 




BEO 

IS 

.-.BRANCH IF YES 

023316 

026627 

000004 

000140 


CM P 

4(SP) .#140 

; ; I S IT UPPER CASE? 

023324 

002407 




BLT 

4S 

.-.-BRANCH IF YES 

023326 

026627 

000004 

000175 


CM P 

4(SP) ,#175 

;; IS IT A SPECIAL CHAR? 

023334 

003003 




BGT 

4S 

.-.-BRANCH IF YES 

023336 

042766 

000040 

000004 


BIC 

#40.4(SP) 

; .MAKE IT UPPER CASE 

023344 

000002 


4$: 

RTI 


; ; GO BACK TO USER 





•THIS 

ROUTINE 

WILL INPUT A 

STRING FROM THE TTY 





•CALL. 








ft 

RDLIN 


;; INPUT A STRING FROM THE TTY 





ft 

RETURN 

HERE 

..ADDRESS OF FIRST CHARACTER WILL BE ON 





ft 



.-.-TERMINATOR WILL BE A BYTE OF ALL 0*S 

023346 

010346 


SRDLIN 

MOV 

R3,-(SP) 

.-.SAVE R3 

023350 

012703 

023454 

1$: 

MOV 

#STTYIN,R3 

.-.-GET ADDRESS 

023354 

022703 

023464 

2$ : 

CMP 

#STTYIN*8., 

R3 ; .-BUFFER FULL? 

023360 

101405 




BLOS 

4S 

; ;8R IF YES 

023362 

104406 




RDCHR 


; ; GO READ ONE CHARACTER FROM THE TTY 

023364 

112613 




MOVB 

(SP)*,(R3) 

,* ;GET CHARACTER 

023366 

122713 

000177 

10S: 

CMP8 

#177. (R3) 

; ; I S IT A RUBOUT 

023372 

001003 




BNE 

3S 

; .-SKIP IF NOT 

023374 

1044C1 

001222 

4$: 

TYPE 

.SQUES 

;;TYPE A '?' 

023400 

000763 




BR 

IS 

;; CLEAR THE BUFFER AND LOOP 

023402 

111337 

023452 

3S: 

MOVB 

(R3).9S 

.-.-ECHO THE CHARACTER 

023406 

104401 

023452 



TYPE 

.9$ 


023412 

122723 

00001 5 



CMPB 

#15,(R3)+ 

; .-CHECK FOR RETURN 

023416 

001356 




BNE 

2S 

;;LOOP IF NOT RETURN 

023420 

105063 

177777 



CLRB 

-1(R3) 

;; CLEAR RETURN (THE 15) 

023424 

104401 

001224 



TYPE 

.SLF 

.-.-TYPE A LINE FEED 

023430 

012603 




MOV 

(SP)+.R3 

; .-RESTORE R3 


;RAN001 

;RAN001 


THE STACK 


CKKUAEO 11/24/44 U8I MAP 
TTY INPUT ROUTINE 
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023432 

011646 




MOV 

023434 

016666 

000004 

000002 


MOV 

023442 

012766 

023454 

000004 


MOV 

023450 

000002 




RTI 

023452 

000 



9$: 

.BYTE 

023453 

000 




.BYTE 

023454 




STTYIN: 

.8LK8 

023464 

136 

125 

015 

SCNTLU: 

.ASCIZ 

023471 

136 

107 

015 

SCNTLG: 

.ASCIZ 

023476 

Cl 5 

012 

123 

SMSWR : 

.ASCIZ 

023507 

040 

040 

116 

SMNEW: 

.ASCIZ 


K 10 

11:27 PAGE 100-1 


SEQUENCE 12 7 


(SP).-(SP) ; .-ADJUST THE STACK AND PUT ADDRESS OF THE 

4(SP).2(SP> ;; FIRST ASCII CHARACTER ON IT 

AfSTTYIN.4 (SP) 

1 * RE TURN 

0 ;; STORAGE FOR ASCII CHAR. TO TYPE 

0 ;; TERMINATOR 

8. ; .-RESERVE 8 BYTES FOR TTY INPUT 

/ A U/<15><12> ;; CONTROL "U" 

/*G/<1 5><1 2> ;; CONTROL “G" 

<15><12>/SWR = / 

/ NEW = / 


t 

i 


E 

E 

E 


CKKUAEO 11/24/44 UBI MAP 
TRAP DECODER 
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SEQUENCE 128 


41 1 5 






; *G0 TO 

THAT 

ROUTINE. 

023520 

010046 


STRAP: 

MOV 

RO.-(SP) 

023522 

016600 

000002 



MOV 

2(SP).R0 

023526 

005740 




TST 

-(RO) 

023530 

111000 




MOVB 

(RO).RO 

023532 

006300 




ASL 

RO 

023534 

016000 

023554 



MOV 

STRPAD (RO) ,R0 

023540 

000200 




RTS 

RO 





:;THIS 

IS USE 

TO HANDLE THE "1 

023542 

011646 


JTRAP2: 

MOV 

(SP).-(SP) 

4(SP).2(SP) 

023544 

016666 

000004 

000002 


MOV 

023552 

000002 




RTI 






.S8TTL 

TRAP 

TABLE 


023554 

023556 

023560 

023562 

023564 

023566 

023570 

023572 

023574 

023576 

023600 

4116 023602 

4117 023604 

4118 023606 


023542 

022200 

022570 

022544 

022604 

022772 

023216 

023346 

005630 

022104 

022142 

002726 

002754 

005630 


. S8TTL TRAP DECODER 

•*************************************************************** 

• THI S ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

.-SAVE RO 

;GET TRAP ADDRESS 
.•BACKUP BY 2 
;GET RIGHT BYTE OF TRAP 
.•POSITION FOR INDEXING 
.•INDEX TO TABLE 
;G0 TO ROUTINE 
GETPRI” MACRO 

.-MOVE THE PC DOWN 
.-MOVE THE PSW DOWN 
.•RESTORE THE PSW 

•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
•BY THE ‘•TRAP” INSTRUCTION. 

ROUTINE 

STRPAD: .WORD 
STYPE 
STVPOC 
STYPOS 
JTYPON 
JTYPDS 
SRDCHR 
SRDLIN 
SRDOCT 
SSAVREG 
SRESREG 
TBI TO F 
T8ITRE 
SRDOCT 


JTRAP2 

CALL=TYPE TRAP+1 (104401 ) 

CALL=TYPOC TRAP*2(104402) 

CALL=TYPOS TRAP+3C 104403) 

CALL=TYPON TRAP+4 (104404) 

CALL^TYPDS TRAP*5( 104405) 

CALL-RDCHR TRAP*6( 104406) 

CALL=RDLIN TRAP*7(104407) 

CALL=RDOCT TRAP+10(104410> 

CALL=SAVREG TRAP+11 (104411) 

CALL-RE SREG TRAP+1 2(1 04412) 

CALL=TBITO TRAP+13( 104413) 

CALL=TBITR TRAP*K(104414> 

CALL s RDOCT TRAP+1 5 (10441 5) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 

TYPE DECIMAL NUMBER (WITH SIGN) 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ AN OCTAL NUMBER FROM TTY 

SAVE R0-R5 ROUTINE 

RESTORE R0-R5 ROUTINE 

THIS WILL TURN OFF T BIT TRAPPING 

THIS WILL RETURN THE T BIT TO PREVIOUS CONOI 

READ OCTAL NUMBER 


CKKUAEO 11/24/44 U8I MAP 
POWER DOWN AND UP ROUTINES 
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SEQUENCE 


129 


4120 




. S8TTL POWER 

DOWN AND UP ROUTINES 





; POWER DOWN ROUTINE 


023610 

012737 

023766 

000024 

tPWRDN: MOV 

#SILLUP.a#PWRVEC 

; SET FOR FAST UP 

023616 

012737 

000340 

000026 

MOV 

#340.3#PWRVEC*2 ; 

PRIO: 7 

023624 

010046 



MOV 

RO.-(SP) 

PUSH RO ON STACK 

023626 

010146 



MOV 

RI.-(SP) 

PUSH R1 ON STACK 

023630 

010246 



MOV 

R2,-(SP) 

PUSH R2 ON STACK 

023632 

010346 



MOV 

R3.-(SP) 

PUSH R3 ON STACK 

023634 

010446 



MOV 

R4,-(SP) 

PUSH R4 ON STACK 

023636 

010546 



MOV 

R5.-(SP> 

PUSH R5 ON STACK 

023640 

017746 

155272 


MOV 

aSWR.-(SP) 

PUSH aSWR ON STACK 

023644 

010637 

023772 


MOV 

SP.SSAVR6 

SAVE SP 

023650 

012737 

023662 

000024 

MOV 

#SPWRUP,a#PWRVEC 

;SET UP VECTOR 

023656 

000000 



HALT 


;HANG UP 

023660 

000776 



BR 

.-2 





•POWER UP ROUTINE 


023662 

012737 

023766 

000024 

JPWRUP: MOV 

#$ILLUP,3#PWRVEC 

;;SET FOR FAST DOWN 

023670 

013706 

023772 


MOV 

SSAVR6.SP 

;GET SP 

023674 

005037 

023772 


CLR 

SSAVR6 

.-WAIT LOOP FOR THE TTY 

023700 

005237 

023772 


IS: INC 

SSAVR6 

.-WAIT FOR THE INC 

023704 

001375 



BNE 

is 

;0F WORD 

023706 

012677 

155224 


MOV 

(sp> ♦. asuR 

;POP STACK INTO aSWR 

023712 

012605 



MOV 

(SPI+.R5 

;POP STACK INTO R5 

023714 

012604 



MOV 

(SPI+.R4 

.-POP STACK INTO R4 

023716 

012603 



MOV 

(SP)+. R3 

;POP STACK INTO R3 

023720 

012602 



MOV 

(SPJ+.R2 

.POP STACK INTO R 2 

023722 

012601 



MOV 

(SP)*.R1 

.POP STACK INTO R1 

023724 

012600 



MOV 

(SP>*. RO 

;POP STACK INTO RO 

023726 

012737 

023610 

000024 

MOV 

#SPWRDN,a#PWRVEC 

; ; SE T UP THE POWER DOWN VECTOR 

023734 

012737 

000340 

000026 

MOV 

#340.3#PWRVEC + 2 ; 

;PRI0:7 

023742 

104401 



TYPE 


.REPORT THE POWER FAILURE 

023744 

023774 



SPWRMG : .WORD 

PWRMSG 

.•POWER FAIL MESSAGE POINTER 

023746 

012716 



MOV 

<PC)+,(SP> 

.RESTART AT START 

023750 

010000 



SPWRAD : .WORD 

START 

.RESTART ADDRESS 

023752 

042766 

000020 

000002 

BiC 

#20.2(SP) 

.CLEAR •T* BIT 

023760 

005037 

022076 


CLR 

ST8IT 

.CLEAR THE ’T 1 BIT FLAG 

023764 

000002 



RTI 



023766 

000000 



JILLUP: HALT 


.-THE POWER UP SEQUENCE WAS STARTED 

023770 

000776 



BR 

.-2 

; BEFORE THE POWER DOWN WAS COMPLETE 

023772 

000000 



SSAVR6: 0 


;PUT THE SP HERE 

4121 023774 

012 

015 

120 

PWRMSG: .ASCIZ 

<12><15>?P0WER FAILURE. RESTARTING PROGRAM? 

4122 




.EVEN 




* 


N 10 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


SEQUENCE 130 


4124 


SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
•THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 


•UNSIGNED OCTAL ASCIZ NUMBER. 





.-•CALL 






• * 

MOV 

#PNTR,-(SP) 




■ * 

JSR 

PC.SASDB20 




• * 

0 

RETURN 


024040 

104411 


SD820: 

SAVREG 


024042 

016601 

000002 


MOV 

2<SP) .R1 

024046 

012705 

024157 


MOV 

#$OCTVL+13..R5 

024052 

012704 

000014 


MOV 

A12..R4 

024056 

012703 

177770 


MOV 

#*C7,R3 

024062 

012100 



MOV 

(RD + .RO 

024064 

012101 



MOV 

(R1 ) ♦ ,R1 

024066 

005002 



CLR 

R 2 

024070 

110245 


IS: 

M0V8 

R2.-CR5) 

024072 

010002 



MOV 

R0.R2 

024074 

005304 



DEC 

R4 

024076 

003007 



BGT 

3$ 

024100 

001405 



8E0 

2$ 

024102 

005205 



INC 

R5 

024104 

010566 

000002 


MOV 

R5.2(SP) 

024110 

104412 



RESREG 


024112 

000207 



RTS 

PC 

024114 

006203 


2$ : 

ASR 

R3 

024116 

006001 


3S : 

ROR 

R1 

024120 

006000 



ROR 

RO 

024122 

006001 



ROR 

R1 

024124 

006000 



ROR 

RO 

024126 

006001 



ROR 

R1 

024130 

006000 



ROR 

RO 

024132 

040302 



BIC 

R3.R2 

024134 

062702 

000060 


ADD 

#'&.R2 

024140 

000753 



BR 

IS 

024142 



SOCTVL: 

.8LK8 

14. 


POINTER TO LOW WORD OF BINARY NUMBER 
CALL THE ROUTINE 

THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 

SAVE ALL REGISTERS 

PICKUP THE POINTER TO LOW WORD 

POINTER TO DATA TABLE 

DO ELEVEN CHARACTERS 

MASK 

LOWER WORD 
HIGH WORD 
TERMINATOR 

PUT CHARACTER IN DATA TABLE 

GET THIS DIGIT 

COUNT THIS CHARACTER 

BR IF NOT THE LAST DIGIT 

BR IF IT IS THE LAST DIGIT 

ALL DIGITS DONE-ADJUST POINTER FOR FIRST 

ASCIZ CHAR. I PUT IT ON THE STACK 

RESTORE ALL REGISTERS 

OPTIIAM TD IICPB 

POSITION THE MASK FOR THE LAST DIGIT 
POSITION THE BINARY NUMBER FOR 
THE NEXT OCTAL DIGIT 


MASK OUT ALL JUNK 
MAKE THIS CHAR. ASCII 
GO PUT IT IN THE DATA TABLE 
RESERVE DATA TABLE 
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SEQUENCE 1 3’ 


4’?6 .S8TTI ERROR MESSAGES 

4127 024160 H6 117 124 EMI: .ASCIZ ?NOT THE CORRECT TRAP CONDITION THROUGH ERRVEC (#004)7 

4128 024245 125 116 105 EM2: .ASCIZ ? UNEXPECTED CPU TRAP THROUGH ERRVEC (#004)7 

4'29 024317 125 116 105 EM3: .ASCIZ 7 UNEXPECTED MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS? 

A’ 30 024425 123 125 115 EM4 : .ASCIZ 7SUMMARY OF MAP REGISTERS THAT TIMED OUT 0" READ? 

4131 024505 123 125 115 EM5: .ASCIZ 7SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS? 

4132 024600 123 125 115 EM6: .ASCIZ 7SUMMARY OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS? 

4133 024702 123 125 115 EM7: .ASCIZ 7SUMMARY OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS? 

4134 025003 103 101 116 EM10: .ASCII ?CAN’T GET TO MAIN MEMORY FROM UNI8US WITH THE MAP OFF?<CRLF> 

4135 025071 123 117 040 .ASCIZ ?S0 JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION? 

4136 025155 123 125 115 EMI 1 : .ASCIZ ’SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH? 

4137 025247 125 116 111 EM12: .ASCIZ ? UNIBUS HAP IS RELOCATING WHEN NOT ENABLED? 

4138 025321 103 101 116 EM13: .ASCII 7CANN0T USE ANY OF THE MAP REGISTERS OR PHYSICAL?<CRLF> 

413® 025401 101 104 104 .A r CII 7ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM?<CRLF> 

4140 025462 111 106 040 .AoCIZ ?IF YOU DON’T LOOP ON THIS PROBLEM.? 

4141 025525 123 125 115 EM14: .ASCIZ 7SUMMARY OF UNIBUS ADDRESS ERRORS, WITH THE MAP RELOCATION DISABLED ' 

4142 025630 115 101 111 EM15: .ASCjZ ?MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY? 

4143 025723 122 105 114 EM16: .ASCIZ ’RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 

4144 026021 116 117 040 EMI 7: .ASCIZ ?N0 UNIBUS MEMORY EXISTS? 

4145 026051 111 116 124 EM20: .ASCIZ 7INTERRUPT/AB0RT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR? 

4146 026150 111 116 124 EM21 : .ASCIZ ? INTERRUPT /ABORT TESTS R4 WAS OVERWRITTEN WITH? 

4147 026226 111 116 124 EM22: .ASCIZ ? INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT? 

4148 026314 114 115 101 EM23: .ASCIZ ?LMA NOT LOADED PROPERLY? 

4149 026344 114 115 101 EM24: .ASCIZ ?LMA FORCE JUMPER BIT NOT ZERO? 

4150 026402 114 115 101 EM25: .ASCIZ ?LMA FORCE JUMPER BIT NOT SET? 

4151 026437 114 115 101 EM26: .ASCIZ ?LMA CONTROL BITS INCORRECT? 

4152 026472 106 117 122 EM 27: .ASCIZ ?FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULi ? 

4153 026572 113 111 120 EM30: .ASCIZ ?KIPAR5 NOT LOADED PROPERLY? 

4154 026625 124 110 105 EM201 : .ASCIZ ?THE FOLLOWING REGISTERS TIMED OUT WHEN READ? 

4155 026701 124 110 105 EM202: .ASCIZ ?THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP? 

4156 026774 124 110 105 EM203: .ASCIZ ?THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED? 

4157 027055 125 116 111 EM204: .ASCIZ ? UNIBUS DATA PATH COUNT PATTERN FAILURE? 

4158 027124 125 116 111 EM205: .ASCIZ ?UNI8US ADDRESSING ERRORS. MAP RELOCATION DISABLED? 

4159 027206 104 101 124 EM206: .ASCIZ ?DATA PATTERN NOT CORRECT? 

4160 027237 122 105 106 EM207: .ASCIZ ?REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770200? 

4161 027346 115 101 120 EM210: .ASCIZ ?MAP REGISTER(S) UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST? 

4162 027446 122 105 114 EM211: .ASCII 7PELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION?<CRLF > 

4163 027544 124 105 123 .ASCIZ ?TEST CODE BEING RUN OVER UNIBUS? 

4164 027604 115 101 111 EM212: .ASCII ?MAIN MEMORY TIMEOUT OVER THE UNI8US DID NOT OCCUR PROPERLY?<CRLF> 

4165 027677 124 105 123 .ASCIZ ? TEST CODE BEING RUN OVER UNIBUS? 

4166 027737 115 101 120 EM213: .ASCIZ ?MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED? 

4167 030030 115 101 120 EM214: .ASCIZ ?MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED? 
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SEQUENCE 


A 168 





. SBTTL 

DATA HEADERS 


A 169 

030121 

122 

105 

103 

DHl : 

. ASCI Z 

7RECEIVD 

EXPECTD TESTNO ERR PC? 

070 

030160 

122 

105 

103 

DH2: 

. ASCI Z 

7RECEIVD 

TESTNO ERR PC? 

4171 

030207 

123 

124 

101 

DH3: 

.ASCII 

7STATUS 

AUTOI/D VIRTUAL?<CRLF> 

4172 

030237 

122 

105 

107 


. AS C I Z 

7REGISTR 

REGISTR ADDRESS TESTNO ERR PC? 

4173 

030306 

122 

105 

107 

DH4: 

.ASCII 

7REGADRS 

REGADRS?<CRLF> 

4 1 74 

030330 

040 

042 

117 


.ASCIZ 

7 "OR" 

"AND" /TERRORS TESTNO ERR PC? 

4175 

030403 

122 

105 

107 

DH5 : 

.ASCII 

7REGL0AD 

REGLOAD REGDUAL REGDUAL?<CRLF> 

4176 

030451 

040 

042 

117 


.ASCIZ 

7 "OR" 

"AND" "OR" "AND" /TERRORS TESTNO? 

4177 

030540 

115 

101 

120 

DH6: 

.ASCII 

7MAPREG 

MAPREG EXPECTD EXPEC T D RECEIVD RECE!VD?<CRLF> 

4178 

030624 

040 

04 2 

117 


.ASCIZ 

7 "OR" 

"AND" "OR" "AND" "OR" "AND" /TERRORS TESTNO 7 

4179 030727 

124 

105 

123 

DHl 0 : 

.ASCIZ 

7TESTN0 

ERR PC MMR3? 

4180 

030754 

105 

130 

120 

DHl 1 : 

.ASCII 

7EXPFCTD 

EXPECTD RECEIVD RECEIVD?<CRLF> 

4181 

031022 

040 

042 

11 7 


.ASCIZ 

7 "0." 

"AND" "OR" "AND" /TERRORS TESTNO? 

4182 

031111 

103 

117 

116 

DHl 5 : 

.ASCII 

7C0NDITN 

CONDITN?<CRLF> 

4183 

031131 

105 

130 

120 


.ASCIZ 

7EXPECTD 

RECEIVD TESTNO ERR PC? 

4184 

031170 

124 

105 

123 

DH23: 

.ASCIZ 

7TESTN0 

ERR PC LMAEXP LMARCV? 

4185 

031231 

124 

105 

123 

DH24: 

.ASCIZ 

7TESTN0 

ERR PC LMAEXP LMARCV? 

4186 

031270 

124 

105 

123 

DH27: 

.ASCIZ 

7TESTN0 

ERR PC LMARCV KIPAR4? 

4187 

031327 

124 

105 

123 

DH30: 

.ASCIZ 

7TESTN0 

ERR PC PR5EXP PR5RCV? 

4188 

031366 

122 

105 

107 

DH201 : 

.ASCIZ 

7REGADRS 

TESTNO FRR PC? 

4189 

031415 

115 

101 

120 

DH202 : 

.ASCII 

7MAPREG 

MAPREG NON-ZER?<CRLF> 

4190 

031451 

124 

105 

123 


.ASCIZ 

7TESTING 

DUALED CONTNTS TESTNO ERR PC? 

4191 

031524 

122 

105 

10 7 

DH203: 

•ASCIZ 

7REGADRS 

PATTRN EXPCTD RECEVD TESTNO ERR PC? 

4192 

031605 

105 

130 

120 

DH204: 

.ASCIZ 

7EXPECTD 

RECEIVD ADDRSLOAD TESTNO ERR PC? 

4193 

031656 

101 

104 

104 

DH205 : 

.ASCII 

7ADDRESS 

ADDRESS?<CRLF> 

4194 

031700 

105 

130 

120 


.ASCIZ 

7EXPECTD 

RECEIVD TESTNO ERR PC? 

4195 

031743 

101 

104 

104 

DH206: 

.ASCIZ 

7ADDRESS 

EXPCTD RECVED TESTNO ERR PC? 

4196 

032013 

101 

104 

104 

DH207: 

.ASCIZ 

7ADDRUSED BITDIFF TESTNO ERR PC? 

4197 

032054 

124 

105 

123 

DH210: 

.ASCIZ 

7TESTN0 

ERR PC MAPREGADR? 

4198 032106 

103 

117 

122 

DH211: 

.ASCII 

7 CORRECT 

EXPECTD RCCEIVD?<CRLF> 

4199 

032140 

101 

104 

104 


.ASCIZ 

7 ADDRESS 

DATA FROM UB TESTNO ERR PC? 

4200 

032211 

103 

117 

116 

DH212: 

.ASCII 

7C0NDITN 

CONDI TN?<CRLF> 

4201 

032231 

105 

130 

120 


.ASCIZ 

7EXPECTD 

RECEIVD TESTNO ERR PC? 

4202 

032270 

124 

105 

123 

DH213: 

•ASCIZ 

7TESTN0 

ERR PC REG NO DDUDAT DDUADR? 


4203 .EVEN 



CkkjAEO 11/24/44 U81 MAP 
DATA TABLES 

4204 

4205 032540 001330 001326 

4206 032352 001330 020146 

4207 032362 001350 001352 

4208 032376 001236 001232 

4209 032412 001236 001232 

4210 032430 001236 001232 

4211 032452 020146 001114 

4212 032462 001254 001252 

4213 032500 001236 001232 

4214 032516 001326 001330 

4215 032530 020146 001114 

4216 032542 020146 001114 

4217 032554 020146 001114 

4218 032566 020146 00ri4 

4219 032600 020146 001114 

4220 032612 005764 020146 

4221 032622 005770 005764 

4222 032636 005770 001174 

4223 032654 001174 001176 

4224 032670 005764 005770 

4225 032702 005764 001204 

4226 032716 005764 001160 

4227 032730 020146 001114 

4228 032740 005764 001166 

4229 032754 001326 001330 

4230 032^66 020146 001114 
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SEQUENCE 133 



. SBTTL 

020146 

DTI : 


001340 

DT2: 


001354 

DT3: 


001320 

D T 4 : 


001246 

D T 5 : 


001254 

DT6: 


172516 

DT10 


001246 

DT1 1 


001246 

DTK 


020146 

DTI 5 


005764 

DT23 


001162 

D T 24 


001174 

D T 26 


001174 

DT27 


001206 

DT30 


001114 

DT201 

001202 

DT202 

001170 

DT203 

001164 

DT204 

020146 

DT205 

001206 

DT206 

020146 

DT207 

005764 

DT210 

001164 

DT211 

020146 

DT212 

001174 

DT213 


DATA TA8LES 

.WORD PCPUER.CPUEXP.STESTN.BADPC.O 

.WORD PCPUER .STESTN.BADPC ,0 

.WORD PMMR0.PMMR1 .PMMR2 .STESTN.BADPC .0 

.WORD ADDROR.ADRAND.ERRCNT.STESTN.SERRPC.O 

.WORD ADDROR.ADRAND.DATAOR.DATAND.ERRCNT.STESTN.O 

.WORD ADDROR.ADRAND.PATTOR.PATAND.DATAOR.DATAND.ERRCNT.STESTN.O 

.WORD STESTN.SERRPC. MMR3.0 

.WORD PATTOR , PA TAND.DAT AOR.DATAND, ERR CNT .STESTN.O 

. WORD ADDROR . ADRAND , DATAOR . DATAND . ERRCNT .STESTN.O 

.WORD CPUEXP.PCPUER.STESTN.SERRPC.O 

.WORD STESTN.SERRPC. EADRES.EADRS2.0 

.WORD STESTN.SERRPC.SREG1 .IMAHJ ,0 

.WORD STESTN.SERRPC. STMP0.SREG2.0 

.WORD STESTN.SERRPC .STMP0.KJPAR4.0 

.WORD STESTN.SERRPC.STMP5.KJPAR5.0 

.WORD EADRES.STESTN.SERRPC.O 

.WORD EADRS2.EADRES.STMP3.STESTN.SERRPC.0 

. WORD EADRS2 , $ THPO,$RE G4.SREG3, STESTN.SERRPC . 0 

.WORD STMP0.STHP1 .SREG2.STESTN.SERRPC.0 

.WORD EADRES.EADRS2.STESTN.SERRPC.0 

.WORD EADRES.STNP4.STHP5.STESTN.SERRPC.O 

.WORD EADRES.SREGO.STESTN.SERRPC.O 

.WORD STESTN.SERRPC. EADRES.O 

.WORD EADRES.SREG3.SREG2.STESTN.SERRPC.0 

. WORD CPUEXP , PCPUER .STESTN.SERRPC . 0 

.WORD STESTN.SERRPC. STMP0.STMP1 .SREG5.0 
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4231 

4232 033002 

200 

123 

111 JMPMSG: 

. S8TTL 
.ASCII 

4233 033067 

120 

117 

123 

.ASCII 

4234 033157 

125 

123 

105 

.ASCII 

4235 033250 

125 

116 

111 

.ASCII 

4236 033341 

101 

116 

104 

.ASCII 

4237 033430 

105 

116 

101 

.ASCII 

4238 033467 

040 

040 

114 

.ASCII 

4239 C33530 

040 

040 

125 

.ASCII 

4240 033567 

040 

040 

040 

.ASCIZ 


NON-DEFAULT UNIBUS MAP JUMPER MESSAGE 

<CRLF>?SI2E JUMPERS ON UNIBUS MAP ARE NOT IN THEIR DEFAUL T?<CRLF> 
?P0SI T ION. MAP REGISTERS BETWEEN THE LOWEST AND HIGHEST?<CRLF> 
7USEA8LE , AND ABOVE THE UNIBUS END NUMBER WILL BE TESTED. ?<CRLF> 
7UNI8US MEMORY WILL BE ASSUMED TO BE BETWEEN UNIBUS BEGIN?<CRLF> 

7 AND END REGISTER NUMBERS IF BIT <5> IS SET IN THE SWR,?<CRLF> 
7ENA8LING TEST #23 TO EXECUTE. ?<CRLF><CRLF> 

7 LOWEST HIGEST UNIBUS UNIBUS?<CRLF> 

7 USABLE USABLE BEGIN END?<CRLF> 

7 REG# REG # REG # REG # TEST #?<CRLF> 
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ABASE = OOOOOO 
ACDUl = OOOOOO 
ACDU2 = OOOOOO 
ACPUOP= OOOOOO 
ADDROR 001236 
ADDUO = 177777 
ADDU1 = 177777 
AD0W10= OOOOOO 
ADOUl 1 = OOOOOO 
ADDWl2= OOOOOO 
AODUl 3= OOOOOO 
AD0W14= OOOOOO 
ADDW15= OOOOOO 
ADDW2 = OOOOOO 
ADDW3 = OOOOOO 
ADDW4 = OOOOOO 
ADDW5 = OOOOOO 
A00U6 = OOOOOO 
ADDW7 = OOOOOO 
ADDU8 = OOOOOO 
ADDW9 = OOOOOO 
ADEVCT= OOOOOO 
ADEVM = OOOOOO 
ADRAND 001232 
ADREXT 003674 
AENV = OOOOOO 
AENVM = OOOOOO 
AFATAL= OOOOOO 
AMADR1 = OOOOOO 
AMADR2= OOOOOO 
AMADR3= OOOOOO 
AMADR4= OOOOOO 
AMAMS1 = OOOOOO 
AMAMS 2= OOOOOO 
AMAMS3= OOOOOO 
AMAMS4= OOOOOO 
AMSGAD= OOOOOO 
AMSGLG= OOOOOO 
AMSGTY= OOOOOO 
AMTYP1 = OOOOOO 
AMTYP2= OOOOOO 
AMT YP3= OOOOOO 
AMTYP4= OOOOOO 
APASS = OOOOOO 
APR I OR = OOOOOO 
APTCSU= 000040 
APTENV= 000001 
APTSIZ= 000200 
APTSPO= 000100 
ASWREG= OOOOOO 
ATESTN= OOOOOO 
I AUNIT - OOOOOO 
' AUSUR = OOOOOO 
AVECT1= OOOOOO 
AVECT2= OOOOOO 
BAD CPU 006607 
BADPC 001340 


BI TO - 000001 
BITOO = 000001 
BIT01 = 000002 
BIT02 = 000004 
BIT03 = 000010 
BIT04 = 000020 
BI T 05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BI T 1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 - 020000 
BIT14 = 040000 
8IT15 = 100000 
BI T2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BIT5 = 000040 
BIT6 = 000100 
BIT7 = 000200 
BI T8 = 000400 
BI T9 = 001000 
BPTVEC= 000014 
BUPUIN 001276 
CACHE = 177746 
CACHVE= 000114 
CASHSR 005324 
CASH1 005460 
CASH2 005470 
CHARCT 005760 
CHKLMA 005076 
CHKPAT 005600 
CLRMAP 002772 
CM PE = 177744 
CNTR 001322 
C0NTRL= 177746 
CPF LAG 003224 
CPSAVE 020700 
CPUER 003222 
CPUERR= 177766 
CPUEXP 001326 
CPUMSG OOF "''0 
CPUTYP 00. 0 
CR = 000015 
CRLF = 000200 
CTRAPS= 000116 
CTRA PV= 000114 
DATA 001364 
DATAND 001242 
DATAOR 001246 
DATEXT 003624 
DATO = 100000 
DATOB = 140000 


DDISP = 177570 
DFMSG 006120 
DF1 033641 
DF 1 1 033671 
DF 1 4 033677 
DF 201 033711 
DF204 033717 
DF210 033724 
DF 23 033705 
DF4 033646 
DF 5 033653 
DF6 033661 
DHl 030121 
DH10 030727 


DHl 1 

DH15 

DH2 

DH201 

DH202 

DH203 

DH204 

DH205 

DH206 

DH207 

DH210 

DH211 

DH212 

DH213 

DH23 

DH24 

DH27 

DH3 

DH30 

DH4 

DH5 

DH6 

DISPLA 

DISPRE 

DSABLD 

DSWR s 

DTMS 

DTMSG 

DTI 

DT10 

DT1 1 

DTK 

DTI 5 

DT2 

DT201 

DT202 

DT203 

DT204 

DT205 

DT206 

D T 207 

DT210 

DT211 


030754 

031111 

030160 

031366 

031415 

031524 

031605 

031656 

031743 

032013 

032054 

032106 

032211 

032270 

031170 

031231 

031270 

050207 

031327 

030306 

030403 

030540 

001140 

000174 

005230 

177570 

005740 

005744 

032340 

032452 

032462 

032500 

032516 

032352 

032612 

032622 

032636 

032654 

032670 

032702 

032716 

032730 

032740 
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DT212 

032754 

FJBIT - 000100 

DT213 

032766 

FLAG 001324 

DT23 

032530 

FLOATR 005774 

DT24 

032542 

FTTHRU 003532 

D T 26 

032554 

GMRMD1 007043 

DT27 

032566 

GMRMOD 007046 

DT3 

032362 

HIADRS= 177742 

DT30 

032600 

HIGEST 001260 

DT4 

032376 

HI TMIS= 177752 

DT5 

032412 

HT = 000011 

DT6 

032430 

IBSAVE 020702 

EADRES 

005764 

IOTVEC= 000020 

EADRS2 

005770 

JMPMSG 033002 

EMTVEC= 

000030 

KDPARO= 172360 

EMI 

024160 

KDPAR1= 172362 

EM10 

025003 

KDPAR2= 172364 

EM1 1 

025155 

KDPAR3= 172366 

EMI 2 

025247 

KDPAR4= 172370 

EMI 3 

025321 

KDPAR5= 172372 

EM14 

025525 

KDPAR6= 172374 

EMI 5 

025630 

KDPAR7= 172376 

EMI 6 

025723 

KDPD*RO= 172320 

EMI 7 

026021 

KDPDR1= 172322 

EM2 

024245 

KDPDR2= 172324 

EM20 

026051 

ICDPDR3= 172326 

EM201 

026625 

KDPDR4= 172330 

EM202 

026701 

KDPDR5= 172332 

EM203 

026774 

KDPDR6= 172334 

EM204 

027055 

KDPDR7= 172336 

EM205 

027124 

KERSTK= 001100 

EM206 

027206 

KIPARO= 172340 

EM207 

027237 

ICIPAR1= 172342 

EM21 

026150 

KIPAR2= 172344 

EM210 

027346 

KIPAR3= 172346 

EM211 

027446 

ICIPAR4= 172350 

EM212 

027604 

ICIPAR5= 172352 

EM213 

027757 

ICIPAR6- 172354 

EM214 

030030 

XIPAR7= 172356 

EM22 

026226 

KIPDRO= 172300 

EM23 

026314 

KIPDR1= 172302 

EM24 

026344 

KIPDR2= 172304 

EM25 

026402 

XIPDR3= 172306 

EM26 

026437 

XIPDR4= 172310 

EM27 

026472 

XIPDR5= 172312 

EM3 

024317 

XIPDR6= 172314 

EM30 

026572 

KIPDR7= 172316 

EM4 

024425 

KSP =X000006 

EM5 

024505 

LF = 000012 

EM6 

024600 

LKS = 177546 

EM7 

024702 

LXVEC = 000100 

ENABLD 

005266 

LMAH 001304 

ERRCNT 

001320 

LMAHI = 177736 

ERROR = 

104000 

LMAL 001 306 

ERRVEC= 

000004 

LMALOU= 177734 

ERTYPE 

002026 

LOADRS= 177740 

ER200 

001666 

LOEFLG 004312 

EXTOUT 

005762 

LOOP 010606 
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LOWEST 001256 
LREGL 001500 
LREGU 001302 
HAINT = 177750 
MAPADD 004106 
MAPHO = 170202 
MAPH00= 170202 
MAPHO 1 = 170206 
MAPH02= 170212 
MAPh03= 170216 
MAPh04= 170222 
HAPH05= 170226 
maph 06= 170232 
MAPH07= 170236 
HAPH1 = 170206 
MAPH10= 170242 
HAPH1 1 = 170246 
MAPH12= 170252 
MAPH1 3= 170256 
MAPH14= 170262 
MAPH1 5= 170266 
MAPH16= 170272 
HAPHl 7= 170276 
HAPH? = 170212 
MAPH20= 170302 
MAPH21= 170306 
MAPH22= 170312 
MAPH23= 170316 
MAPH24= 170320 
HAPH25= 170326 
MAPH26= 170332 
HAPH27= 170336 
HAPH3 = 170216 
MAPH30= 170342 
HAPHJ1= 170346 
MAPH32= 170352 
MAPH33= 170356 
MAPH34= 170362 
MAPH35= 170366 
MAPH36= 170372 
MAPH37= 170376 
MAPH4 = 170222 
MAPH5 = 170226 
MAPH6 = 170232 
HAPH 7 = 170236 
HAPLO = 170200 
MAPL 00= 170200 
HAPL01 = 170204 
MAPL02= 170210 
MAPL03= 170214 
MAPL 04- 170220 
MAPL05= 170224 
MAP L 06= 170230 
MAPL07= 170234 
MAPLl = 170204 
MAPL 1 0= 170240 
MAPl 11= 170244 
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MAPL12= 170250 
MAPL 13= 170254 
MAPL 14= 170260 
MAPL 15= 170264 
MAPL 16= 170270 
MAPL 17= 170274 
MAPL 2 = 170210 
MAPL 20= 170300 
MAPL21= 170304 
MAPL22= 170310 
MAPL23= 170314 
MAPL24= 170320 
MAPL25= 170324 
MAPL26= 170330 
MAPL27= 170334 
MAPL3 = 170214 
MAPL30= 170340 
MAPL31 = 170344 
MAPL32= 170350 
MAPL33= 170354 
MAPL34= 170360 
MAPL35= 170364 
MAPL 36= 170370 
MAPL37= 170374 
MAPL4 = 170220 
MAPL 5 = 170224 
MAPL6 = 170230 
MAPL 7 = 170234 
MASKl 005776 
MASK2 006000 
MEMERR= 177744 
MFPT = 000007 
WFLAG 003374 
MMRHI 001270 
MMRLOW 001266 
MMRO = 177572 
MMR1 = 177574 
MMR2 = 177576 
MMR3 = 172516 
MMTOTM 020014 
MM TRAP 003372 
MMVEC = 000250 
MRQUES 006754 
NEUSUR 006161 
NEXMEM= 000040 
NEXT 003552 
NOMORE 006421 
NOMSG 013646 
NUMOFK 001316 
NXTTST 001362 
OLDPC 001342 
OLDPS 001344 
OLDPSU 001346 
PADRSH 001230 
PADRSL 001226 
PATAND 001252 
PATCH 007142 
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PATEXT 003650 
PATRNS 006102 
PATTOR 001254 
PCONTR 001334 
PCPUER 001330 
PJRO = 177772 
PIRQVE= 000240 
PMAINT 001336 
PMBECD 002526 
PMBECF 002536 
PMBECH 002476 
PMBECM 002442 
PMBECW 002432 
PMMRO 001350 
PMMR1 001352 
PMMR2 001354 
PPARER 001332 
PRETST 005166 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR 3 = 000140 
PR4 = 000200 
PR 5 = 000240 
PR6 = 000300 
PR 7 = 000340 
PS = 177776 
PSW = 177776 
PTMP2 005000 
PWRMSG 023774 
PWRVEC= 000024 
RDCHR = 104406 
RDLIN = 104407 
RDOCT = 104415 
RELC22 011672 
RESREG= 104412 
RESVEC= 000010 
RETRY 001360 
RSIZE 001356 
RIO =*000000 
R11 =*000001 
R12 =*000002 
R13 =*000003 
R 1 4 =*000004 
R15 =*000005 
R3STAK 004314 
R6 =*000006 
R7 =*000007 
SAVREG= 104411 
SCOPE = 000004 
SDPAR0= 172260 
SDPAR1= 172262 
SDPAR2= 172264 
SDPAR3= 172266 
SDPAR4= 172270 
SDPAR5= 172272 
SDPAR6= 172274 
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SDPAR7= 172276 
SDPDR0= 172220 
SDPDR1 = 172222 
SDPDR2= 172224 
SDPDR3= 172226 
SDPDR4= 172230 
SDPDR5= 172232 
SDPDR6= 172234 
SDPDR7= 172236 
SIPAR0= 172240 
S I PAR 1 = 172242 
SJPAR2= 172244 
SIPAR3= 172246 
SIPAR4= 172250 
SIPAR5= 172252 
SIPAR6= 172254 
SJPAR7= 172256 
SIPDR0= 172200 
SIPDR1 = 172202 
SIPDR2= 172204 
SIP5R3= 172206 
S1PDR4= 172210 
SIPDR5= 172212 
SIPDR6= 172214 
SIPDR7= 172216 
SI ZEHI = 177762 
SIZEJO 012744 
SIZEJ1 013154 
SIZEJ2 013402 
SIZELO= 177760 
SPEC ST 006002 
SRO = 177572 
SRI = 177574 
SR 2 = 177576 
SR3 = 172516 
SSP =*000006 
STACK = 001100 
START 010000 
STKLMT= 177774 
SUPSTK= 000700 
SUR 001136 
SUREG 000176 
SUO = 000001 
SUOO = 000001 
SW01 = 000002 
SW02 = 000004 
SW03 = 000010 
SU04 = 000020 
SW05 = 000040 
SW06 = 000100 
SW07 = 000200 
SW08 = 000400 
Sw09 = 001000 
SW1 = 000002 
SW10 = 002000 
SW11 = 004000 
SW12 = 010000 


SW13 = 020000 
SWl 4 = 040000 
SW15 = 100000 
SW2 = 000004 
SU3 = 000010 
SW4 = 000020 
SU5 = 000040 
SU6 = 000100 
SW7 = 000200 
SW8 = 000400 
SW9 = 001000 
SYSTID= 177764 
TBIT = 000020 
TBITO = 104413 
TBITOF 002726 
TBITR = 104414 
TBITRE 002754 
TBI TVE= 000014 
TCPMRA 004416 
TJMEOU 003030 
TIMOUT= 000020 
TKVEC = 000060 
TOFLAG 003032 
TOMSG 006261 
TPVEC = 000064 
TRAPVE= 000034 
TRTVEC= 000014 
TSTLOC 003474 
TST1 010676 
TST10 014616 
TST11 015072 
TST12 015140 
TST13 015174 
TST14 015334 
TST15 015362 
TST16 015420 
TST17 015450 
TST2 011122 
TST20 015610 
TST21 015744 
TST22 016220 
TST23 016266 
TST24 016474 
TST25 016540 
TST26 016702 
TST27 017036 
TST3 011444 
TST30 017164 
TST31 017412 
TST32 = 021576 
TST4 011762 
TST5 012242 
TST6 012630 
TST7 013712 
TYPDAT= 002244 
TYPDS = 104405 
TYPE = 104401 
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TYPOC = 104402 

usestk= 

000600 

SDOAGN 

022034 

TYPON = 1 04404 

USP = 

Z000006 

SDTBL 

023176 

TYPOS = 104403 

YESMSG 

013542 

SENDAD 

022024 

TYPVAD 002542 

SAPTHD 

020000 

SENDCT 

021644 

U6ADDR 002650 

SATYC 

021354 

SENULL 

022100 

U8MAVA 006125 

SATY1 

021330 

SENV 

020162 

UBHEND 0061 74 

SATY3 

021336 

SENVM 

020163 

UBHHI 001264 

SATY4 

021346 

SEOP 

021576 

U8ML0W 001262 

SAUTOB 

001132 

SEOPCT 

021636 

U8MSU 015236 

SBASE 

0202 1 6 

JERFLG 

001101 

U8M24L 001310 

S8DADR 

001120 

SERMAX 

001113 

U8M24P 001314 

SBDDAT 

001124 

SERROR 

020704 

UBM24U 001312 

SBELL 

001216 

SERRPC 

001114 

U8RHI 001274 

SCDW1 

020222 

SERRTB 

001366 

U8RL0W 001272 

SCDW2 

020224 

SERTTL 

001110 

UDPARO= 177660 

SCHARC 

022540 

SESCAP 

001214 

UDPAR1 = 177662 

SCLR.T 

022014 

SETA8L 

020162 

UDPAR2= 177664 

SCMTAG 

001100 

SETEND 

020266 

UDPAR3= 177666 

SCM1 = 

000006 

SFATAL 

020144 

UDPAR4= 177670 

SCM2 = 

000014 

SFFLG 

021574 

UDPAR5= 177672 

$CM3 = 

000006 

SFILLC 

001154 

UDPAR6= 177674 

$CM4 = 

000007 

SFILLS 

001153 

UDPAR7= 177676 

SCNTLG 

023471 

SGDADR 

001116 

UDPDR0= 177620 

SCNTLU 

023464 

SGDDAT 

001122 

UDPDR1 = 177622 

SCPUOP 

020170 

SGET42 

021776 

UDPDR2= 177624 

SCRLF 

001223 

SHD = 

000000 

UDPDR3= 177626 

SD8LK 

023206 

SHI8TS 

020000 

UOPDR4= 177630 

SD820 

024040 

SHI OCT 

005736 

UDPDR5= 177632 

SDDWO 

020226 

SICNT 

001102 

UDPDR6= 177634 

SDDW1 

020230 

SILLUP 

023766 

U0PDR7= 177636 

SDDW10 

020252 

SINTAG 

001133 

UIPAR0= 177640 

SDDW1 1 

020254 

SITEM8 

001112 

UIPAR1= 177642 

SDDW12 

020256 

SLF 

001224 

UIPAR2= 177644 

SDDW13 

020260 

slflg 

021573 

UIPAR3= 177646 

SDDW14 

020262 

SLOOP 

022072 

UIPAR4= 177650 

SDDW15 

020264 

SLPADR 

001104 

UIPAR5= 177652 

SDDW2 

020232 

SLPERR 

001106 

UIPAR6= 177654 

SDDW3 

020234 

SMADR1 

020174 

UIPAR7= 177656 

SDDW4 

020236 

SMADR2 

020200 

UIPDRO= 177600 

SDDW5 

020240 

SMADR3 

020204 

UIPDR1= 177602 

SDDW6 

020242 

SMADR4 

020210 

UIPDR2= 177604 

SDDW7 

020244 

SMAIL 

020142 

UIPDR3= 177606 

SDDW8 

020246 

SMAMS1 

020172 

UIPDR4= 177610 

SDDW9 

020250 

SMAMS2 

020176 

UIP0R5= 177612 

IDEVCT 

020152 

SMAMS3 

020202 

UIP0R6= 177614 

SDEVM 

020220 

SMAMS4 

020206 


UIPDR7= 177616 

. AflS. 033 727 000 

000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 56440 WORDS ( 22 1 PAGES) 

DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 

ELAPSED TIME: 00:10:24 
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11 

8-3 SEQUENCE 138 


SM8ADR 

020002 

SSVPC = 

000204 

smflg 

021572 

SSWR = 

177400 

SMNEW 

023507 

SSWREG 

020164 

SMSGAD 

020156 

SSWRMK= 

000340 

SMSGLG 

020160 

ST8IT 

022076 

smsgty 

020142 

STESTN 

020146 

SMSWR 

023476 

STIMES 

001212 

SMTYP1 

020173 

STK8 

001144 

SMTYP2 

020177 

STKS 

001142 

SMTYP3 

020203 

STMPO 

001174 

SMTYP4 

020207 

STMP1 

001176 

SMXCNT 

020676 

STMP2 

001200 

SNULL 

001152 

STMP3 

001202 

SNWTST= 

000001 

STMP4 

001204 

SOCNT 

022766 

STMP5 

001206 

SOCTVL 

024142 

STMP6 

001210 

SOMODF 

022770 

STN = 

000032 

SOVER 

020662 

STP8 

001150 

SPASS 

020150 

STPFLG 

001155 

SPASTM 

020006 

STPS 

001146 

SPWRAD 

023750 

STRAP 

023520 

SPWRDN 

023610 

STRAP2 

023542 

SPWRMG 

023744 

STRP = 

000016 

SPWRUP 

023662 

STRPAD 

023554 

SQUES 

001222 

STSTM 

020004 

SRDCHR 

023216 

STSTWt 

001100 

SRDLIN 

023346 

STTYIN 

023454 

SRDOCT 

005630 

STYPDS 

022772 

SRDSZ = 

000010 

STYPE 

022200 

SREGAD 

001156 

STYPEC 

022412 

SREGO 

001160 

STYPEX 

022542 

SREG1 

001162 

S TYPOC 

022570 

SREG2 

001164 

STYPON 

022604 

SREG3 

001166 

STYPOS 

022544 

SREG4 

001170 

SUN IT 

020154 

SREG5 

001172 

SUNITM 

020010 

SRESRE 

022142 

SUSWR 

020166 

SRTNAD 

022074 

SVECT1 

020212 

SRTRN 

022070 

SVECT2 

020214 

SSAVRE 

022104 

SXOFF = 

000023 

SSAVR6 

023772 

SXON = 

000021 

SSCOPE 

020266 

SXTSTR 

020372 

SSETUP= 

000037 

SSGET4= 

OOOOOI 

SSSWR 

000176 

SOFILL 

022767 

SSTUP ~ 

177777 

.sx = 

020000 

SSVLAD 

020626 

.SY = 

002026 

























k 11 


CUK JAE 


CREATED BY 

MACRO ON 11 

-JAN-82 AT 

11:32 

PAGE 2 











SEQUENCE 140 






SYMBOL 

CROSS REFERENCE 




CREF V01 






SYMBOL 

VALUE 

REFERENCES 









AUSUR 

z 

000000 

91-4095 

91-4095 








AVECT1 

z 

000000 

91-4095 

91-4095 








AVECT2 

z 

000000 

91-4095 

91-4095 








BAD CPU 


006607 

#53-2625 

54-2713 








B'DPC 


001340 

#21-1496 

*36-2092 

*37-2128 

106-4205 

106-4206 

106-4207 




r >. ro 

- 

000001 

#17-1489 

38-2155 

38-2160 

58-2936 

62-3090 

63-3128 

79-3745 

79-3751 


BITOO 

z 

000001 

#17-1489 

17-1489 

50-2487 

92-4097 

92-4097 

93-4099 

93-4099 



BIT 01 

r 

000002 

#17-1489 

17-1489 








BIT02 

z 

000004 

#17-1489 

17-1489 








BIT03 

z 

000010 

#17-1489 

17-1489 








BIT04 

z 

000020 

#17-1489 

17-1489 








BIT05 

s 

000040 

#17-1489 

17-1489 








BIT06 

z 

000100 

#17-1489 

17-1489 

50-2505 

50-2509 






BIT07 

z 

000200 

#17-1489 

17-1489 

50-2524 







BIT08 

z 

000400 

#17-1489 

17-1489 

50-2488 

50-2540 

92-4097 





BIT09 

z 

001000 

#17-1489 

17-1489 

55-2781 

57-2909 

59-2988 

92-4097 

93-4099 



BIT1 

z 

000002 

#17-1489 









BIT10 

z 

002000 

#17-1489 

93-4099 








Bin i 

Z 

004000 

#17-1489 

42-2284 

44-2364 

46-2429 

59-2957 

68-3320 

68-3339 

73-3526 

90-4078 




92-4097 









BIT12 

z 

010000 

#17-1489 

50-2489 

50-2541 

95-4103 






BIT13 

z 

020000 

#17-1489 

93-4099 








BIT14 

z 

040000 

#17-1489 

83-3851 

84-3877 

84-3882 

85-3904 

92-4097 




BIT15 

z 

100000 

#17-1489 

45-2404 








BIT2 

z 

000004 

#17-1489 









BIT3 

z 

000010 

#17-1489 









BIT4 

r 

000020 

16-1460 

#17-1489 

32-1977 

58-2937 






BIT5 

z 

000040 

#17-1489 

34-2011 

63-3127 

69-3412 

70-3473 

72-3510 

87-3974 



BIT6 

z 

000100 

#17-1489 

78-3690 








BIT7 

z 

000200 

#17-1489 









BIT8 

z 

000400 

#17-1489 









BIT9 

z 

001000 

#17-1489 

56-2834 

61-3060 

68-3349 

69-3456 

81-3823 

83-3864 

84-3891 

85-3917 

BPTVEC 

z 

000014 

#17-1489 









BUPWIN 


001276 

#21-1496 

*65-3218 

68-3367 

68-3395 






CACHE 

z 

1 77746 

#16-1464 

*50-2488 

50-2489 

*50-2502 

*50-2505 

*50-2509 

50-2513 

*50-2524 

*50-2535 




*50-2540 

50-2541 

*77-3652 

*78-3709 






CACHVE 

z 

000114 

#17-1489 









CASHSR 


005324 

#50-2487 

77-3651 

78-3701 







CASH1 


005460 

#50-2512 

*77-3649 

*78-3699 







CASH2 


005470 

#50-2516 

*77-3650 

*78-3700 







CHARCT 


005760 

#52-2599 









chklma 


005076 

38-2168 

42-2281 

44-2361 

#46-2425 

68-3326 

68-3345 

68-3354 



CHkPAT 


005600 

#50-2547 

56-2817 

56-2831 







CLRMAP 


002772 

#34-2008 

57-2882 

60-3012 

68-3284 






CMPE 

z 

1 77744 

#16-1465 

*50-2510 

*50-2534 







CNTR 


001322 

#21-1496 









CONTRL 

z 

1 77746 

#17-1489 









CPFLAG 


003224 

#36-2083 

*36-2099 

*36-2102 

*36-2107 

*54-2740 

*93-4099 




CPSAVE 


020700 

29-1900 

*92-4097 

92-4097 

#92-4097 

*93-4099 

93-4099 




CPUER 


003222 

#36-2082 

54-2734 

55-2787 







CPUERR 

z 

1 77766 

#17-1489 

35-2042 

*35-2043 

36-2091 

•36-2108 

*54-2743 

*93-4099 



CPUEXP 


001326 

#21-1496 

35-2039 

35-2044 

35-2053 

36-2093 

36-2097 

36-2106 

*44-2345 

•44-2350 


CK.KUAE 


CREATFD BY 

MACRO ON 1 

SYMBOL 

CROSS REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

*44-2353 

*59-2990 

*62-3101 

*65-3215 

CPUMSG 


006200 

#53-2620 

CPUTYP 


007140 

35-2036 

CR 

= 

000015 

#17-1489 

CRLF 


000200 

#17-1489 

53-2625 

104- 4162 

105- 4193 
107-4237 

C TRAPS 

s 

000116 

#16-1468 

CTRAPV 

z 

000114 

#16-1467 

DATA 


001364 

#21-1496 

DATAND 


001242 

#21-1496 

DATAOR 


001246 

#21-1496 

DATEXT 


003624 

#39-2185 

DATO 

= 

100000 

#84-3874 

DATOB 

- 

140000 

#85-3901 

DDISP 

= 

177570 

#17-1489 

DFMSG 


006120 

52-2597 

DF 1 


033641 

22-1501 

24-1608 

#108-4242 

DF 1 1 


033671 

23-1555 

DF 14 


033677 

23-1576 

DF 201 


033711 

26-1658 

DF204 


033717 

26-1677 

DF210 


033724 

26-1702 

DF23 


033705 

24-1620 

DF4 


033646 

22-1521 

DF5 


033653 

22-1528 

DF6 


033661 

22-1535 

DHl 


030121 

22-1499 

OHIO 


030727 

23-1546 

DHl 1 


030754 

23-1552 

DHl 5 


031111 

23-1580 

DH2 


030160 

22-1505 

DH201 


031366 

26-1656 

DH2G2 


031415 

26-1662 

DH203 


031524 

26-1669 

DH204 


031605 

26-1675 

DH205 


031656 

26-1681 

DH206 


031743 

26-1688 

DH207 


032013 

26-1694 

DH210 


032054 

26-1700 

DH211 


032106 

27-1706 

DH212 


032211 

#105-4200 

DH213 


032270 

27-1721 

DH23 


031170 

24-1618 

DH24 


031231 

24-1624 


-JAN-82 AT 11:32 PAGE 3 
SEQUENCE HI 

CREF V0 1 


*44-2355 

*54-2736 

*59-2962 

*59-2992 

*60-3017 

*60-3019 

*63-3137 

*63-3140 

*63-3148 

*68-3312 

*68-3314 

*90-4082 

*54-2692 

54-2693 

*54-2698 

35-2049 

36-2095 

#53-2630 

97-4107 

97-4107 


52-2617 

52-2619 

53-2620 

53-2626 

53-2628 

53-2629 

104-4164 

105-4171 

105-4173 

105-4198 

105-4200 

107-4232 

107-4237 

107-A238 

107-4239 

50-2496 

*50-2498 

*50-2539 

50-2495 

*50-2497 

*50-2538 

44-2346 

*44-2381 

*44-2388 

*39-2187 

*56-2861 

*92-4097 

*39-2185 

*56-2859 

*92-4097 

56-2824 

84- 3881 

85- 3908 
21-1496 

57-2901 

61-3051 

#52-2616 



22-1507 

22-1514 

23-1548 

24-1614 

24-1626 

2A-1632 

#108-4246 



26-1684 

#108-4247 


26-1671 

#108-4250 

#108-4251 

#108-4248 

#108-4243 

26-1690 

26-1696 

23-1590 

#108-4244 


23-1541 

#105-4169 

26-1665 

#108-4245 

23-1559 

23-1567 

24-1593 

23-1573 

#105-4182 

#105-4170 

#105-4188 

#105-4189 

#105-4191 

#105-4192 

#105-4193 

#105-4195 

#105-4196 

#105-4197 

23-1587 

#105-4180 

27-1714 

#105-4198 


27-1727 

#105-4184 

#105-4202 


24-1630 

24-1636 

#105-4185 


11 


*59-2964 *59-2967 *59-2969 *59-2977 *59-2979 

*60-3032 *60-3034 *60-3044 *61-3064 *62-3098 

*64-3173 *64-3179 *64-3182 *65-3209 *65-3212 

*90-4087 106-4205 106-4214 ^6-4229 

54-2699 

*54-2684 *54-2685 54-2695 55-2755 77-3638 

53-2620 53-2621 53-2622 53-2623 53-2624 

97-4107 97-4107 104-4134 104-4138 104-4139 

105-4175 105-4177 105-4180 105-4182 105-4189 

107-4232 107-4233 107-4234 107-4235 107-4236 

107-4240 


*44-2389 *44-2390 

106-4209 106-4210 106-4212 106-4213 
106-4209 106-4210 106-4212 106-4213 
68-3335 69-3448 


23- 1561 23-1569 

24- 1638 24-1644 


23-1583 

25-1649 


24-1595 

27-1723 


24-1601 


27-1729 


27-1709 27-1717 #108-4249 


24-1599 24-1606 24-1612 #105-4179 


CKKUAE 

CREATED BY 

MACRO ON 1 

SYMBOL 

CROSS REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

DH27 

031270 

24-1642 

DH3 

030207 

22-1511 

DH30 

031327 

25-1647 

DH4 

030306 

22-1518 

DH5 

030403 

22-1525 

DH6 

030540 

22-1532 

DISPLA 

001140 

#21-1496 

OISPRE 

000174 

#18-1492 

DSABLO 

005230 

#48-2459 

DSWR 

= 177570 

#17-1489 

DTMS 

005740 

#52-2597 

DTMSo 

005744 

52-2597 

DTI 

032340 

22-1500 

DT10 

032452 

23-1547 

DT1 1 

032462 

23-1554 

DTK 

032500 

23-1575 

DTI 5 

032516 

23-1582 

DT2 

032352 

22-1506 

DT201 

032612 

26-1657 

DT202 

032622 

26-1664 

DT203 

032636 

26-1670 

DT204 

032654 

26-1676 

DT205 

032670 

26-1683 

DT206 

032702 

26-1689 

DT207 

032716 

26-1695 

DT210 

032730 

26-1701 

DT211 

032740 

27-1708 

DT 212 

032754 

#106-4229 

DT213 

032766 

27-1722 

DT23 

032530 

24-1619 

DT24 

032542 

24-1625 

DT26 

032554 

24-1637 

DT27 

032566 

24-1643 

DT3 

032362 

22-1513 

DT30 

032600 

25-1648 

DT4 

032376 

22-1520 

DT5 

032412 

22-1527 

DT6 

032430 

22-1534 

EADRES 

005764 

*41-2235 

#52-2601 

106-4224 

EADRS2 

005770 

#52-2602 

106-4222 

EMTVEC 

= 000030 

#17-1489 

EMI 

024160 

22-1498 

EM10 

025003 

23-1544 

EM1 1 

025155 

23-1551 

EMI 2 

025247 

23-1558 

EMI 3 

025321 

23-1564 

EM14 

025525 

23-1572 

EMI 5 

025630 

23-1579 

EM16 

025723 

23-1586 


M 

-JAN-82 AT 11:32 PAGE 4 
SEQUENCE 142 

CREF V01 


#105-4186 

#105-4171 

#105-4137 

#105-4173 

#105-4175 



23-1538 

#105-4177 


47-2447 

92-4097 

93-4099 

63-3141 

21-K/o 

66-3227 

#52-2598 

#106-4205 

64-3183 

65-3207 

23-1560 

#106-4212 

23-1568 

24-1594 

23-1589 

#106-4214 

#106-4206 

#106-4220 

#106-4221 

#106-4222 

#106-4223 

#106-4224 

#106-4225 

#106-4226 

#106-4227 

#106-4213 


27-1716 

#106-4228 


27-1728 

#106-4215 

#106-4230 


24-1631 

#106-4217 

#106-4218 

#106-4207 

#106-4219 

#106-4208 

#106-4209 

#106-4216 


23-1540 

#106-4210 


*41-2236 

41-2247 

*41-2249 

*59-2987 

*79-3762 

*79-3763 

106-4225 

106-4226 

106-4227 

*57-2902 

106-4224 

*69-3449 

*69-3450 

54-2655 

#104-4127 

#104-4134 

#104-4136 

#104-4137 

#104-4138 

#104-4141 

#104-4142 

#104-4143 

54-2655 



11 


24-1600 24-1607 24-1613 #106-4211 


1 


*41-2250 *42-2292 *42-2293 *44-2371 *44-2372 
*88-4045 *92-4097 106-4215 106-4220 106-4221 
106-4228 

*79-3760 *79-3761 *92-4097 106-4215 106-4221 


N 11 


CKKUAE CREATED BY MACRO ON 11-JAN-82 AT 11:32 PAGE 5 

SEQUENCE 143 


SYMBOL CROSS REFERENCE CREF VOI 

SYMBOL VALUE REFERENCES 


EMI 7 

026021 

24-1592 

#104-4144 








EM2 

024245 

22-1504 

#104-4128 








EM20 

026051 

24-1598 

#104-4145 








EM201 

026625 

26-1655 

#104-4154 








EM202 

026701 

26-1661 

#104-4155 








EM203 

026774 

26-1668 

#104-4156 








EM204 

027055 

26-1674 

#104-4157 








EM205 

027124 

26-1680 

#104-4158 








EM206 

027206 

26-1687 

#104-4159 








EM207 

027237 

26-1693 

#104-4160 








EM21 

026150 

24-1604 

#104-4146 








EM210 

027346 

26-1699 

#104-4161 








EM211 

027446 

27-1704 

#104-4162 








EM212 

027604 

27-1712 

#104-4164 








EM213 

027737 

27-1720 

#104-4166 








EM214 

030030 

27-1726 

#104-4167 








EM22 

026226 

24-1611 

#104-4147 








EM23 

026314 

24-1617 

#104-4148 








EM24 

026344 

24-1623 

#104-4149 








EM25 

026402 

24-1629 

#104-4150 








EM26 

026437 

24-1635 

#104-4151 








EM27 

026472 

24-1641 

#104-4152 








EM3 

024317 

22-1510 

#104-4129 








EM30 

026572 

25-1646 

#104-4153 








EM4 

024425 

22-1517 

#104-4130 








EM5 

024505 

22-1524 

#104-4131 








EM6 

024600 

22-1531 

#104-4132 








EM7 

024702 

23-1537 

#104-4133 


65-3216 






ENABLD 

005266 

#49-2474 

63-3149 

64-3177 


*55-2757 

55-2759 

*55-2778 

55-2783 

ERRCNT 

001320 

#21-1496 

29-1791 

29-1798 

*35-2051 

*36-2105 

55-2789 

*55-2792 

*56-2809 

56-2841 

*56-2845 

*56-2862 

57-2915 

*57-2918 

61-3065 



*61-3068 

*68-3291 

*68-3315 

68-3398 

*68-3401 

69-3*59 

*69-3462 

*87-3986 

*90-4074 



*92-4097 

*93-4099 

106-4208 

106-4209 

106-4210 

106-4212 

106-4213 


56-2833 

ERROR 

= 104000 

#16-1473 

#17-1489 

35-2047 

35-2059 

36-2100 

36-2103 

37-2134 

55-2793 

56-2848 

56-2850 

57-2908 

57-2919 

59-2986 

60-3025 

61-3059 

61-3069 

61-3072 



62-3105 

63-3142 

63-3146 

63-3150 

64-3178 

64-3185 

65-3208 

65-3217 

68-3348 



68-3375 

68-3402 

69-3455 

69-3463 

70-3478 

71-3493 

72-3515 

74-3570 

75-3588 



76-3601 

77-3655 

78-3704 

78-3708 

79-3765 

80-3786 

81-3802 

81-3822 

82-3839 



83-3863 

84-3890 

85-3916 

87-3984 

88-4046 




*92-4097 

ERRVEC 

= 000004 

#17-1489 

*54-2734 

*54-2735 

*55-2754 

*55-2787 

92-4097 

*92-4097 

*92-4097 

ERTYPE 

002026 

#29-1777 

93-4099 








ER200 

001666 

#26-1650 

29-1806 

29-1809 







EXTOUT 

005762 

#52-2600 





81-3801 

82-3834 

82-3835 

82-^838 

FJBIT 

= 000100 

#80-3779 

80-3782 

80-3785 

81-3797 

81-3798 

FLAG 

001324 

#21-1496 





49-2478 

#52-2603 



FLOATR 

005774 

38-2150 

*38-2155 

*38-2160 

*38-2162 

48-2463 



FT THRU 

003532 

#38-2158 

*63-3133 








GMRMD1 

007043 

#53-2628 

*55-2768 

55-2769 

55-2770 






GMRMOO 

007046 

#53-2629 

55-2772 




101-4115 

101-4115 

101-4115 

101-4115 

GNS 


18-1492 

18-1492 

95-4103 

95-4103 

101-4115 


101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 



101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4116 

101-4116 

101-4117 


B 12 


CKKUAE CREATED B v MACRO ON 11-JAN-82 AT 11:32 PAGE 6 

SEQUENCE 144 


SYMBOL 

CROSS REFERENCE 




SYMBOL 

value 

REFERENCES 


101-4118 




101-4117 

101-4118 

HIADRS 

r 

177742 

#17-1489 


*64-3188 

HIGEST 


001260 

#21-1496 

*64-3167 

HITMIS 

= 

177752 

#17-1489 


97-4107 

HT 

* 

00001 1 

#17-1489 

97-4107 

IBSAVE 


020702 

#93-4099 

*93-4099 

93-4099 

IOTVEC 

s 

000020 

#17-1489 

54-2655 

54-2655 

JMPMSG 


033002 

66-3226 

#107-4232 


KDPARG 

r 

172360 

#17-1489 



KDPAR1 

x. 

172362 

#17-1489 



KDPAR2 

s 

172364 

#17-1489 



KDPAR3 

= 

1 72366 

#17-1489 



KDPAR4 

x 

1 72370 

#17-1489 



KDPAR5 

= 

172372 

#17-1489 



. KDPAR6 

x 

172374 

#17-1489 



KDPAR7 

s 

172376 

#17-1489 



KDPORO 

s 

1 72320 

#17-1489 



KDPDR1 

s 

1 72322 

#17-1489 



ICDPDP2 

= 

1 72324 

#17-1489 



KDPDR3 

r 

172326 

#17-1489 



K0PDR4 

= 

172330 

#17-1489 



ICDPDR5 

r 

172332 

#17-1489 



KDPDR6 

r 

1 72334 

#17-1489 



KDPDR7 

~ 

172336 

#17-1489 



ICERSTK 

r 

001100 

#17-1489 



KIPARO 

z: 

172340 

#17-1489 

30-1922 

58-2929 

K I PARI 

r 

172342 

#17-1489 

*73-3553 

*77-3637 

KIPAR2 

s 

172344 

#17-1489 

69-3447 

79-3747 


*83-3866 

84-3875 

*84-3876 

KIPAR3 

= 

172346 

#17-1489 

45-2401 

*45-2402 

KIPAR4 

= 

172350 

#17-1489 

*44-2338 

44-2378 


64-3165 

*64-3171 

*64-3174 




*68-3292 

*68-3305 

*68-3306 




68-3362 

*68-3364 

68-3365 




*81-3814 

81-3815 

*81-3826 

KJPAR5 

= 

172352 

#17-1489 

*60-3027 

*60-3029 

KIPAR6 

= 

172354 

#17-1489 

*42-2275 

*44-2339 



*59-2995 

*59-2998 

*60-3014 




*69-3439 

69-3440 

69-3444 

KIPAR7 


172356 

#17-1489 

35-2056 

56-2827 

ICJPDRO 


172300 

#1^-1489 

58-2924 


KIPDR1 

— 

172302 

#17-1489 



ICIPDR2 

r 

172304 

#17-1489 



KIPDR3 

X 

172306 

#17-1489 



K I PDR4 

X 

172310 

#17-1489 



ICIPDR5 

r 

172312 

#17-1489 



KIPDR6 

r 

172314 

#17-1489 



KIPDR7 

X 

172316 

#17-1489 



KSP 

=1000006 

#17-1489 

*29-1777 

*29-1781 




29-1853 

*29-1854 

*29-1862 




30-1932 

*30-1933 

*30-1938 




31-1960 

32-1978 

32-1980 


CREF VOI 


64-3189 

65-3199 

68-3362 

68-3388 

81-3805 

*93-4099 

*93-4099 

93-4099 

93-40°9 

93-4099 


*73-3555 

*77-3636 

*79-3750 

*87-3990 


*87-3991 





*79-3748 

*79-3764 

*79-3766 

*79-3771 

83-3847 

*84-3893 

85-3902 

*85-3903 

*85-3919 


*45-2407 

54-2719 

*54-2720 

*54-2725 

54-2726 

*44-2382 

57-2896 

*63-3130 

*63-3143 

63-3144 

64-3175 

64-3188 

*65-3204 

65-3205 

65-3218 

68-3309 

68-3324 

68-3331 

68-3343 

68-3358 

68-3367 

*69-3413 

*69-3420 

69-3421 

81-3809 

*90-4075 

*90-4080 

106-4218 



61-3070 

*61-3073 

*62-3094 

106-4219 


59-2953 

*59-2954 

*59-2959 

59-2961 

59-2974 

*60-3022 

60-3027 

*60-3039 

62-3091 

69-3426 

*88-4018 

*88-4025 

*88-4027 

*88-4052 


57-2899 

68-3334 

68-3373 




29-1794 

29-1802 

*29-1831 

*29-1839 

*29-1845 

*29-1878 

*29-1885 

*29-1891 

*29-1892 

30-1915 

30-1938 

31-1948 

*31-1953 

31-1955 

*31-1956 

32-1981 

33-1993 

*35-2034 

*35-2035 

*35-2061 


87-3979 


93-4099 


*83-3848 

*54-2728 

64- 3158 

65- 3219 
68-3360 

*81-3810 


*59-2993 

69-3429 


*29-1851 

*30-1930 

*31-1960 

*35-2062 



CLKUAE CREATED BY MACRO ON 11 -JAN-83 AT 11:32 QUEN ^ GE 1 J 5 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 

LF - 000012 
L<S = 177546 
LKVEC = 000100 
LMAH 001 304 
LMAHI = 177736 


LMAL 001 306 

LMALOW = 1 77734 

LOADRS = 1 77740 
LOEFLG 004312 

LOOP 010606 

LOWEST 001256 

LREGL 001300 

LREGU 001302 

MAINT = 177750 
MAPADD 004106 

MAPHO = 1 70202 
MAPHOO = 1 70202 
MAPH01 = 1 70206 
MAPH02 = 170212 
MAPH03 = 170216 
MAPH04 = 170222 
MAPH05 = 1 70226 
MAPH06 = 1 70232 
MAPH07 = 1 70236 
MAPH1 = 170206 
MAPH10 = 170242 
MAPH11 = 170246 
MAPH12 = 170252 
MAPH13 = 170256 
MAPH14 = 170262 
MAPH15 = 170266 
MAPH16 = 170272 
MAPH17 = 170276 
MAPH2 = 170212 
HAPH20 = 1 70302 
HAPH21 = 170306 
MAPH22 = 170312 
MAPH23 = 170316 
MAPH24 = 1 70320 
MAPH25 = 170326 
MAPH26 = 1 70332 
MAPH27 = 170336 
MAPH3 = 170216 
MAPH30 = 1 70342 
MAPH31 = 170346 


REFERENCES 


*36-2089 

*36-2090 

#17-1489 

97-4107 

#17-1489 


#17-1489 


#21-1496 

*68-3322 

#16-1475 

38-2169 

80-3782 

80-5784 

83-3860 

84-3879 

#21-1496 

*68-3323 

#16-1474 

38-2169 

79-3760 


#17-1489 


42-2266 

*42-2295 

*75-3586 

*76-3599 

54-2730 

#54-2732 

#21-1496 

42-2275 

79-3748 

79-3766 

#21-1496 

42-2274 

#21-1496 

42-2273 

90-4076 


#16-1466 

#17-1489 

#42-2266 

71-3492 

#17-1489 


#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 

17-1489 

#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 


#17-1489 



CREF V01 

*36-2109 *36-2110 

97-4107 


68-3327 *68-3341 
42-2282 44-2362 
*81-3797 81-3798 
84-3887 85-3906 
68-3327 *68-3342 
42-2282 44-2362 


#42-2302 44-2329 
90-4071 *90-4091 
95-4103 

44-2339 *64-3158 
81-3803 87-3977 
44-2335 44-2383 
44-2334 44-2385 

*50-2499 *50-2536 
75-3587 

56-2855 


C 12 


37-2128 

*37-2129 

*37-2130 

*37-2137 

*37-2138 

68-3346 

45-2398 

68-3355 

68-3322 

68-3341 

79-3757 

79-3761 

81-3800 

*82-3834 

82-3835 

82-3837 

83-3853 

85-3913 

68-3346 

45-2394 

106-4216 

68-3355 

45-2403 

68-3323 

68-3342 

79-3755 

*44-2373 

*70-3474 

*71-3490 

*72-3511 

*74-3568 

64-3159 

67-3254 

68-3289 

68-3292 

73-3551 

90-4075 

*67-3258 

67-3260 

63-3288 

79-3752 

90-4077 

44-2386 

*67-3260 

*67-3261 

73-3545 

79-3753 



CK.KUAE 


CREATED BY 

MACRO ON 11 
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11:32 
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SEQUENCE 146 

SYMBOL 

CROSS REFERENCE 




CREF V01 

SYMBOL 

VALUE 

REFERENCES 




MAPH32 

~ 

170352 

#17-1489 




MAPH33 


170356 

#17-1489 




MAPH34 


1 70362 

#17-1489 




MAPH35 

= 

170366 

#17-1489 




MAPH36 

= 

170372 

#17-1489 


56-2846 

56-2852 

MAPH37 


170376 

#17-1489 

34-2015 

MAPH4 

= 

170222 

#17-1489 




MAPH5 

= 

170226 

#17-1489 




MAPH6 

r 

170232 

#17-1489 




MAPH7 

s 

1 70236 

#17-1489 


55-2758 

55-2776 

MAPLO 


170200 

#17-1489 

34-2008 


63-3119 



57-2878 

MAPLOO 

r 

170200 

#17-1489 

17-1489 

56-2811 

MAPL01 

— 

1 70204 

#17-1489 

17-1489 

68-3293 

68-3377 

MAPL02 

r 

170210 

#17-1489 

17-1489 



MAPL03 

r 

170214 

#17-1489 

17-1489 



MAPL04 

= 

170220 

#17-1489 

17-1489 



MAPL05 

s 

170224 

#17-1489 

17-1489 



MAPL06 

= 

170230 

#17-1489 

17-1489 



MAPL07 

= 

1 70234 

#17-1489 

17-1489 



MAPL1 

= 

170204 

#17-1489 




MAPL10 

IS 

170240 

#17-1489 




MAPL11 

r 

170244 

#17-1489 




MAPL12 


170250 

#17-1489 




MAPL13 

s 

170254 

#17-1489 




MAPL14 

= 

170260 

#17-1489 




MAPL15 

s 

170264 

#17-1489 




MAPL16 


170270 

#17-1489 




MAPL17 

= 

170274 

#17-1489 




MAPL2 

= 

170210 

#17-1489 




MAPL20 

= 

170300 

#17-1489 




MAPL21 

s 

170304 

#17-1489 




MAPL22 

= 

170310 

#17-1489 




MAPL23 

= 

170314 

#17-1489 




MAPL24 

= 

170320 

#17-1489 




MAPL25 

= 

170324 

#17-1489 




MAPL26 

= 

170330 

#17-1489 




MAPL27 


170334 

#17-1489 




MAPL3 

= 

170214 

#1 7-1489 




MAPL30 

rr 

170340 

#17-1 4, ff 




MAPL31 

= 

170344 

#17-1489 




MAPL32 


170350 

#17-1489 




MAPL33 

- 

170354 

#17-1489 




MAPL34 


170360 

#17-1419 




MAPL35 


170364 

#17-1419 




MAPL36 

r 

170370 

#17-1489 




MAPL37 

= 

1 70374 

#17-1489 




MAPL4 


170220 

#17-1489 




MAPL5 

= 

1 70224 

#17-1489 




MAPL6 

r 

170230 

#17-1489 




MAPL7 

r 

1 70234 

#17-1489 




MASKl 


005776 

50-2548 

#52-2604 

*56-2812 

56-2825 


0 12 


57-2880 57-2888 

*59-2956 59-2970 *59-2972 59-2983 *59-2985 


*56-2856 
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SEQUENCE 147 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
MASK2 006000 
MEMERR = 177744 
MFPT = 000007 
MMFLAG 003374 
MMRHI 001270 
MMRLOW 001266 
MMRO = 177572 


MMR1 = 177574 
MMR2 = 177576 
MMR3 = 1 725 n 6 


MMTOTM 020014 
MMTRAP 003372 
MMVEC = 000250 
MRQUES 006754 
NEUSUR 006161 
NEXHEH r 000040 
NEXT 003552 
NOHORE 006421 
NOHSG 013646 
NUHOFK 001316 
NXTTST 001362 
OLDPC 001342 
OLDPS 001344 
OLDPSU 001346 
PADRSH 001230 
PADRSL 001226 
PATAND 001252 
PATCH 007142 
PATEXT 003650 
PATRNS 006102 
PATTOR 001254 
PCONTR 001334 
PCPUER 001330 


PIRQ = 177772 
PIRQVE = 000240 
PMAINT 001336 
PMBECD 002526 
PMBECF 002536 
PMBECH 002476 
PMBECM 002442 
PMBECW 002432 
PMMRO 001350 
PMMR1 001352 
PMMR2 001354 
PPARER 001332 
PRETST 005166 


REFERENCES 
50-2551 #52-2605 

#17-1489 

#16-1472 54-2683 

#37-2122 *37-2136 

#21-1496 52-2598 

#21-1496 52-2598 

#17-1489 17-1489 

*63-3128 *68-3285 

*93-4099 *95-4103 

#17-1489 17-1489 

#17-1489 17-1489 

#17-1489 17-1489 

*69-3412 *70-3473 

*87-3988 *87-3989 

70-3477 74-3569 

#37-2121 54-2732 

#17-1489 *54-2732 

#53-2627 55-2766 

#52-2618 54-2705 

44-2353 44-2356 

38-2153 38-2156 

29-1796 #53-2623 

64-3190 66-3225 

#21-1496 *87-3995 

#21-1496 *47-2444 

#21-1496 *35-2034 

#21-1496 *35-2035 

#21-1496 *32-1980 

#21-1496 *30-1928 

#21-1496 *30-1929 

#21-1496 *40-2201 

#53-2634 

#40-2199 56-2822 

#52-2608 56-2816 

#21-1496 *40-2199 

#21-1496 

#21-1496 *35-2038 

*38-2164 38-2171 

*87-3987 88-4043 

#17-1489 
#17-1489 
#21-1496 

29-1896 #29-1900 

29-1896 #29-1901 

29-1896 #29-1898 

29-1896 #29-1897 

29-1786 #29-1896 

#21-1496 *37-2131 

#21-1496 *37-2132 

#21-1496 *37-2133 

#21-1496 

#47-2443 55-2753 


CREF V01 


*56-2813 

*56-2857 

*54-2742 

*93-4099 

*64-3168 

*64-3186 

*64-3157 


37-2131 

*37-2135 

*68-3290 

*77-3634 

37-2132 


37-2133 


34-2011 

*54-2738 

*77-3635 

*79-3746 

*95-4103 

106-421' 

#90-4071 


*54-2733 


#72-3510 


38-2161 

#38-2163 

66-3235 

#67-3253 

88-4019 


*87-3976 


35-2062 

*36-2089 

35-2061 

*36-2090 

33-1993 

*33-1994 

*31-1952 


30-1930 

*31-1951 

*56-2860 

*92-4097 

61-3053 


60-3041 


*56-2858 

*92-4097 

*35-2042 

35-2043 

*44-2341 

44-2351 

*88-4049 

*90-4081 


106-4207 

106-4207 

106-4207 

56-2808 57-2876 


E 12 


*64-3187 


*50-2487 

*54-2737 

*57-2877 

*58-2936 

*62-3090 

*79-3745 

*79-3751 

*83-3849 

*87-3973 

*88-4020 

*57-2884 

*58-2937 

*63-3127 

*68-3281 

*68-3283 

*79-3749 

*80-3780 

*81-3807 

*81-3827 

*83-3850 


36-2092 

36-2109 

36-2110 

*37-2130 

*37-2129 

37-2137 

37-2138 


31-1953 

106-4210 

106-4212 




106-4210 

106-4212 




35-2044 

44-2356 

90-4088 

*36-2091 

*60-3016 

106-4205 

36-2097 

60-3020 

106-4206 

*36-2106 

*68-3307 

106-4214 

36-2108 

68-3316 

106-4229 

59-2952 

60-3011 

62-3088 

68-3280 

69-3411 




F 12 


75-3584 76-3598 77-3633 78-3689 79-3724 

84-3873 85-3900 87-3972 88-40*5 


* 102-4120 * 102-4120 * 102-4120 * 102-4120 * 102-4120 


59-2952 60-3011 62-3087 68-3280 69-3411 
74-3567 75-3584 76-3598 77-3633 78-3689 
83-3846 84-3873 85-3900 87-3972 88-4015 
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SEQUENCE 149 

SYMBOL 

CROSS REFERENCE 




CREF V01 

SYMBOL 

VALUE 

REFERENCES 




SDPDR7 

= 172236 

#17-1489 




SIPARO 

= 1722AO 

#17-1489 




SI PARI 

= 1722A2 

#17-1489 




SIPAR2 

= 1722AA 

#17-1489 




SIPAR3 

= 1 72246 

#17-1489 




SI PARA 

= 172250 

#17-1489 




SIPAR5 

= 172252 

#17-1489 




SIPAR6 

= 172254 

#17-1489 




SIPAR7 

= 172256 

#17-1489 




SIPDRO 

= 172200 

#17-1489 




SIPDR1 

= 172202 

#17-1489 




SIPOR2 

= 172204 

#17-1489 




SIPDR3 

= 172206 

#17-1489 




SIPDRA 

= 172210 

#17-1489 




SIPDR5 

= 172212 

#17-1489 




SIPDR6 

= 172214 

#17-1489 




SIPDR7 

= 172216 

#17-1489 




SIZEHI 

= 177762 

#17-1489 




SIZE JO 

012744 

60-3026 

62-3089 

62-3104 

#63-3118 

SIZEJ1 

013154 

#64-3157 




SIZE J2 

013402 

#65-3199 




SIZELO 

= 177760 

#17-1489 




SPECST 

006002 

#52-2606 

63-3121 

63-3126 

66-3234 

SRO 

= 177572 

#17-1489 




SRI 

= 177574 

#17-1489 




SR2 

= 177576 

#17-1489 




SR3 

= 172516 

#17-1489 




SSP 

=*000006 

#17-1489 




STACK 

= 001100 

#17-1489 

17-1489 

17-1489 

17-1489 

START 

010000 

18-1492 

#54-2642 

63-3147 

102-4120 

STKLMT 

= 177774 

#17-1489 




SUPSTIC 

= 000700 

#17-1489 




SUR 

001136 

#21-1496 

29-1800 

42-2284 

44-2364 



*54-2731 

55-2781 

56-2834 

57-2909 



69-3456 

73-3526 

77-3647 

78-3690 



87-3974 

90-4078 

92-4097 

92-4097 



93-4099 

93-4099 

93-4099 

95-4103 

SWREG 

000176 

#18-1492 




SWO 

= 000001 

#17-1489 




SUOO 

= 000001 

#17-1489 

17-1489 



SWOI 

= 000002 

#17-1489 

17-1489 



SW02 

= 000004 

#17-1489 

17-1489 



SWO 3 

= 000010 

#17-1489 

17-1489 



SWOA 

= 000020 

#17-1489 

17-1489 



SW05 

= 000040 

#17-1489 

17-1489 



SW06 

= 000100 

#17-1489 

17-1489 



SW07 

= 000200 

#17-1489 

17-1489 



SW08 

= 000400 

#17-1489 

17-1489 



SW09 

= 001000 

#17-1489 

17-1489 



swi 

= 000002 

#17-1489 




SWIO 

= 002000 

#17-1489 




SW11 

= 004000 

#17-1489 





12 


87-3981 

66-3237 





H 12 


59-2977 59-2990 60-3017 60-3032 60-3044 

68-3312 90-4082 90-4088 

* 54-2741 * 93-4099 

81-3817 81-3820 


* 7 8-3689 
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SEQUENCE 151 

SYMBOL 

CROSS REFERENCE 




CREF VOl 

SYMBOL 

VALUE 

REFERENCES 




TST4 


011762 

57-2876 

#59-2952 



TST5 


012242 

59-2952 

#60-301 1 



TST6 


012630 

60-3011 

61-3071 

#62-3087 


TST7 


013712 

#68-3280 




TYPDAT 

= 

002244 

#29-1832 

66-3231 



TYPDS 

- 

104405 

29-1846 

29-1886 

66-3239 

87-4006 

TYPE 


104401 

29-1796 

29-1813 

29-1817 

29-1819 




31-1957 

54-2673 

54-2693 

54-2699 




66-3226 

66-3232 

66-3233 

66-3236 




93-4099 

95-4103 

95-4103 

95-4103 




100-4113 

#101-4115 

102-4120 


TYPOC 

s 

104402 

29-1782 

29-1840 

#101-4115 


TYPON 

= 

104404 

#101-4115 




TYPOS 

s 

104403 

29-1879 

#101-4115 



TYPVAD 


002542 

29-1863 

#30-1914 



UBADDR 


002650 

29-1871 

#31-1947 



U8MAVA 


006125 

#52-2617 

87-4005 



UBMENO 


006174 

#52-2619 

87-4007 



UBMHI 


001264 

#21-1496 

*64-3165 

*64-3166 

*65-3219 

UBMLOU 


001262 

#21-1496 

*64-3162 

*65-3199 

*65-3200 

U8MSU 


015236 

#73-3523 




UBM24L 


001310 

#21-1496 

*42-2278 

42-2279 

42-2286 




*68-3308 

*68-3311 

*70-3476 

*72-3513 

U8M24P 


001314 

#21-1496 

*68-3300 

*68-3304 

68-3311 

UBM24U 


001312 

#21-1496 

*44-2344 

44-2372 

46-2434 

UBRHl 


001274 

#21-1496 

52-2598 

*64-3163 

*64-3164 

UBRLOU 


001272 

#21-1496 

52-2598 

*64-3161 

*65-3201 

UOPARO 


1 77660 

#17-1489 




UDPAR1 

- 

177662 

#17-1489 




UDPAR2 

r 

1 77664 

#17-1489 




UDPAR3 

r 

1 77666 

#17-1489 




UDPAR4 

“ 

1 77670 

#17-1489 




UOPAR5 


177672 

#17-1489 




U0PAR6 

= 

1 77674 

#17-1489 




UOPAR7 

= 

177676 

#17-1489 




UOPDRO 


177620 

#17-1489 





UDPDR1 = 1 77622 
U0PDR2 = 1 77624 
UDPDR3 = 177626 
UDPDR4 = 177630 
UOPOR5 = 177632 
UDPDR6 = 1 77634 
UDPDR7 = 177636 
UIPARO = 177640 
UIPAR1 = 177642 
UIPAR2 = 177644 
UIPAR3 = 177646 
UIPAR4 = 177650 
UIPAR5 = 177652 
UIPAR6 = 177654 
UIPAR7 = 177656 
UIPDRO = 177600 



I 12 


95-4103 

29-1824 

54-2705 

66-3240 

97-4107 


95-4103 

29-1826 

54-2713 

66-3245 

98-4109 


#101-4115 

29-1855 

55-2766 

87-4005 

99-4111 


29-1888 

55-2769 

87-4007 

100-4113 


30-1934 

55-2772 

93-4099 

100-4113 


81-3815 

81-3810 

88-4060 

87-3998 

88-4018 



42-2292 

*44-2342 

44-2371 

46-2436 

*63-3154 

*63-3135 

*65-3220 

87-3993 

•68-3282 

•65-3221 

•70-3475 

87-3992 

*71-3491 

*72-3512 


J 12 


CKKUAE 


CREATED BY 

SYMBOL 

CROSS REFERENCE 

SYMBOL 

VALUE 

UIPDR1 

r 

1 77602 

UIPDR2 

s 

1 77604 

UIPDR3 

r 

1 77606 

UIPDR4 

r 

177610 

UIPDR5 

r 

177612 

UIPDR6 

r 

177614 

UIPDR7 

r 

177616 

USESTK 

= 

000600 

USP 

_ i 

1000006 

YESMSG 


013542 

SAP T HD 


020000 

SASTAT 

= 

****** 

SATYC 


021354 

SATY1 


021330 

SATY3 


021336 

SATY4 


021346 

SAUTOB 


001132 

(BASE 


020216 

S8DADR 


001120 

WDDAT 


001124 

WELL 


001216 

SCDW1 


020222 

SCDW2 


020224 

tCHARC 


022540 

SCKSWR 

r 

****** 

$CLR. T 


022014 

SCMTAG 


001100 

$CM1 

- 

000006 

$CM2 

r 

000014 

$CM3 

= 

000006 

$CM4 

= 

000007 

SCNTLG 


023471 

SCNTLU 


023464 

SCPUO° 


020170 

tCRLF 


001223 

SDBLK 


023206 

SD620 


024040 

SDDUO 


020226 

SDDWl 


020230 

SDDU10 


020252 

SDDWl 1 


020254 

SDDWl 2 


020256 

SDDWl 3 


020260 

SDDWl 4 


020262 

SDDWl 5 


020264 


MACRO ON 11 -JAN-82 AT 11:32 PAGE 14 

SEQUENCE 152 

CREF VOI 


references 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

64-3169 

89-4067 

94-4101 

94- 4101 
#94-4101 
#94-4101 

93-4099 

#21-1496 

#91-4095 

#21-1496 

#21-1496 

#21-1496 

#91-4095 

#91-4095 

*97-4107 

101-4115 

95- 4103 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#21-1496 
#100-4113 
#100-4113 
#91-4095 
#21-1496 

93-4099 

99-4111 

29-1852 

63-3118 

38-2152 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 

#91-4095 


#66-3224 

#89-4067 

94-4101 

#94-4101 




97-4107 

#94-4101 




93-4099 

93-4099 

93-4099 


*97-4107 

97-4107 

*97-4107 

#97-4107 

#95-4103 

54-2643 

21-1496 

21-1496 

54-2644 

21-1496 

21-1496 

#21-1496 

#21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

#21-1496 

#21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

#21-1496 

#21-1496 

#21-1496 

21-1496 

21-1496 

29- 1813 
93-4099 
99-4111 

30- 1931 
#91-4095 

38-2154 

29-1819 

95-4103 

#99-4111 

31-1954 

#91-4095 

29-1826 

97-4107 

#103-4124 

66-3232 

97-4107 


21-1496 

21-1496 

ISJIXi 
— * ^ 

1 1 
—A 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

21-1496 

r\jr\j 

—A 

1 1 

21-1496 

21-1496 

I l 

** 

21-1496 

21-1496 

#21-1496 

#21-1496 

f\jr\> 

l * 

21-1496 

21-1496 

66-3233 

97-4107 

66-3240 

100-4113 

66-3245 

100-4113 

93-4099 


CKKUAE 

SYMBOL 

SYMBOL 

SDDW2 

SDDU3 

SDDU4 

SDDU5 

SDDW6 

SDDU7 

SDDU8 

SDDU9 

SDEVCT 

SDEVM 

SDOAGN 

SDTBL 

SENDAD 

SENDCT 

SENULL 

SENV 

SENVM 

SEOP 
SEOPCT 
SERF LG 

SERMAX 

SERROR 

SERRPC 


SERRTB 

SERTTL 

SESCAP 

SETA8L 

SETEND 

SFATAL 

SFFLG 

SFILLC 

SF ILLS 

SGDAOR 

SGODAT 

SGET42 

SGTSWR 

SHD 

SHIBTS 

SHIOCT 

SICNT 

SILLUP 

SINTAG 

SITEMB 

SLF 

SLFLG 

SLOOP 

SLPADR 


CREATED BY 

MACRO ON 11 

-JAN-82 AT 

11:32 
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SEQUENCE 153 

CROSS REFERENCE 




CREF V01 

VALUE 

REFERENCES 




020232 

#91-4095 




020234 

#91-4095 




020236 

#91-4095 




020240 

#91-4095 




020242 

#91-4095 




020244 

#91-4095 




020246 

#91-4095 




020250 

#91-4095 




020152 

#91-4095 




020220 

#91-4095 




022034 

95-4103 

95-4103 

95-4103 

#95-4103 

023176 

99-4111 

#99-4111 



022024 

19-1494 

93-4099 

#95-4103 


021644 

54-2657 

#95-4103 



022100 

#95-4103 




020162 

48-2459 

49-2474 

55-2761 

#91-4095 

020163 

48-2461 

49-2476 

54-2700 

54-2729 


97-4107 




021576 

87-3976 

87-3985 

87-4008 

88-4057 

021636 

*54-2657 

#95-4103 

95-4103 


001101 

#21-1496 

92-4097 

*92-4097 

92-4097 


93-4099 

93-4099 



001113 

#21-1496 

*54-2659 

92-4097 

*92-4097 

020704 

54-2655 

#93-4099 



001114 

#21-1496 

29-1781 

29-1900 

*93-4099 


106-4211 

106-4214 

106-4215 

106-4216 


106-4222 

106-4223 

106-4224 

106-4225 

001 366 

#22-1496 

29-1809 

29-1814 


001110 

#21-1496 

*55-2791 

*56-2844 

*57-2917 


93-4099 

93-4099 

95-4103 

95-4103 

001214 

#21-1496 

*54-2658 

*92-4097 

93-4099 

020162 

#91-4095 




020266 

89-4067 

#91-4095 



020144 

#91-4095 

*94-4101 



021574 

*94-4101 

*94-4101 

94-4101 

*94-4101 

001154 

#21-1496 

97-4107 

97-4107 

97-4107 

001153 

#21-1496 

97-4107 

97-4107 


001116 

#21-1496 




001122 

#21-1496 




021776 

#95-4103 




s ****** 

101-4115 




= 000000 

16-1485 

16-1485 

16-1485 


020000 

#89-4067 




005736 

*51-2590 

#51-2595 



001102 

#21-1496 

*92-4097 

92-4097 

*92-4097 

023766 

102-4120 

102-4120 

#102-4120 


001133 

#21-1496 




001112 

#21-1496 

29-1779 

*93-4099 

93-4099 

001224 

#21-1496 

93-4099 

93-4099 

97-4107 

021573 

*94-4101 

#94-4101 



022072 

95-4103 

#95-4103 



001104 

#21-1496 

*47-2449 

*54-2669 

*92-4097 


K 12 


93-4099 

77-3642 

94-4101 

78-3692 

94-4101 

#91-4095 

97-4107 

94-4101 

97-4107 

#95-4103 





92-4097 

*92-4097 

92-4097 

92-4097 

*93-4099 

92-4097 

92-4097 




*93-4099 

106-4217 

106-4226 

93-4099 

106-4218 

106-4227 

93-4099 

106-4219 

106-4228 

93-4099 

106-4220 

106-4229 

106-4208 

106-4221 

106-4230 

*61-3067 

*95-4103 

93-4099 

*68-3400 

93-4099 

*69-3461 

93-4099 

*88-4048 

*93-4099 

#94-4101 






92-4097 

92-4097 



93-4099 

*93-4099 

93-4099 

93-4099 93-4099 

97-4107 

100-4113 

100-4113 

100-4113 

*92-4097 

92-4097 

92-4097 

92-4097 


L 12 


CKKUAE 

CREATED BY 

MACRO ON 11 

1 -JAN-82 AT 

11:32 

PAGE 16 








SEQUENCE 154 






SYMBOL 

r ROSS REFERENCE 




CREF V01 






SYMBOL 

tLPERR 

VALUE 

001106 

REFERENCES 

#21-1496 

*42-2272 

*44-2340 

*47-2445 

*54-2670 

*55-2779 

*55-2788 

*56-2810 

*56-2836 

*56-2843 

*56-2854 

*61-3054 

*63-3136 

*64-3170 

*65-3202 

*81-3808 

*87-3981 

92-4097 



*92-4097 

92-4097 

92-4097 

93-4099 






SMADR1 

020174 

#91-4095 









SMADR2 

020200 

#91-4095 









SMADR3 

020204 

#91-4095 









SMADR4 

020210 

#91-4095 



92-4097 

93-4099 

97-4107 




tMAIL 

020142 

89-4067 

89-4067 

#91-4095 




SMAMS1 

020172 

#91-4095 









SMAMS2 

020176 

#91-4095 









SMAMS3 

020202 

#91-4095 









SMAMS4 

020206 

#91-4095 









SMBADR 

020002 

#89-4067 



#94-4101 






SMFLG 

021572 

*94-4101 

94-4101 

*94-4101 






SMNEU 

023507 

#100-4113 









SMSGAD 

020156 

#91-4095 

*94-4101 

94-4101 







SMSGLG 

020160 

#91-4095 

*94-4101 



*55-2763 



*94-4101 

94-4101 

JMSGTY 

020142 

*35-2030 

*94-4101 

*36-2085 

*37-2124 

*54-2712 

#91-4095 

94-4101 




SMSUR 

023476 

#100-4113 









IMTYP1 

020173 

#91-4095 









JMTYP2 

020177 

#91-4095 









$MTYP3 

020203 

#91-4095 









SMTYP4 

020207 

#91-4095 



#92-4097 






SMXCNT 

020676 

92-4097 

92-4097 

92-4097 






SNULL 

001152 

#21-1496 

97-4107 

97-4107 

97-4107 




56-2808 

#56-2876 

SNUTST 

= 000001 

#54-2753 

54-2753 

#55-2753 

55-2753 

#55-2808 

55-2808 

#56-2808 

56-2876 

#57-2876 

57-2876 

#58-2952 

58-2952 

#59-2952 

59-2952 

#59-3011 

59-3011 



#60-301 1 

60-3011 

#61-3087 

61-3087 

#62-3087 

62-3087 

#67-3280 

67-3280 

#68-3280 



68-3280 

#68-3411 

68-3411 

#69-3411 

69-3411 

#69-3472 

69-3472 

#70-3472 

70-3472 



#70-3489 

70-3489 

#71-3489 

71-3489 

#71-3503 

71-3503 

#72-3503 

72-3503 

#73-3567 



73-3567 

#74-3567 

74-3567 

#74-3584 

74-3584 

#75-3584 

75-3584 

#75-3598 

75-3598 



#76-3598 

76-3598 

#76-3633 

76-3633 

#77-3633 

77-3633 

#77-3689 

77-3689 

#78-3689 



78-3689 

#78-3724 

78-3724 

#79-3724 

79-3724 

#79-3778 

79-3778 

#80-3778 

80-3778 



#80-3796 

80-3796 

#81-3796 

81-3796 

#81-3833 

81-3833 

#82-3833 

82-3833 

#82-3846 



82-3846 

#83-3846 

83-3846 

#83-3873 

83-3873 

#84-3873 

84-3873 

#84-3900 

84-3900 



#85-3900 

85-3900 

#86-3972 

86-3972 

#87-3972 

87-3972 

#87-4015 

87-4015 

#88-4015 



88-4015 









$OCNT 

022. u6 

*98-4109 

*98-4109 

#98-4109 







tOCTVL 

024142 

103-4124 

#103-4124 




#98-4109 




SOMODE 

022770 

*98-4109 

*98-4109 

98-4109 

*98-4109 

*98-4109 




SOVER 

020662 

92-4097 

92-4097 

92-4097 

92-4097 

#92-4097 


92-4097 

92-4097 

*95-4103 

SPASS 

020150 

*54-2647 

54-2677 

66-3224 

87-4000 

#91-4095 

92-4097 

*95-4103 

95-4103 

95-4103 

95-4103 






$PASTM 

020006 

#89-4067 









SPURAD 

023750 

#102-4120 









SPWRDN 

023610 

54-2656 

#102-4120 

102-4120 







tPWRMG 

023744 

#102-4120 









tPWRUP 

023662 

102-4120 

#102-4120 




100-4113 

100-4113 

100-4113 


tQUES 

001222 

#21-1496 

93-4099 

93-4099 

97-4107 

97-4107 


SRDCHR 

023216 

#100-4113 

101-4115 

101-4115 







SRDDEC 

r ****** 

101-4115 











M 12 
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SEQUENCE 155 


SYMBOL 

CROSS REFERENCE 




CREF V01 






SYMBOL 

VALUE 

REFERENCES 

101-4115 

101-4115 







SRDLIN 


023346 

#100-4113 

101-4118 






SRDOCT 


005630 

#51-2565 

101-4115 

101-4115 






tRDSZ 

= 

000010 

#100-4113 

100-4113 








SREGAD 


001156 

#21-1496 


106-4226 







tREGO 


001160 

#21-1496 

*93-4099 







tREGl 


001162 

#21-1496 

*93-4099 

106-4216 

106-4223 

106-4228 





SREG2 


001164 

#21-1496 

*93-4099 

106-4217 





$REG3 


001166 

#21-1496 

*93-4099 

106-4222 

106-4228 






SREG4 


001170 

#21-1496 

*93-4099 

106-4222 







SREG5 


001172 

#21-1496 

*93-4099 

106-4230 







tRESRE 


022142 

#96-4105 

101-4115 








SR T NAD 


022074 

#95-4103 



95-4103 

#95-4103 





SRTRN 


022070 

54-2656 

*54-2660 

*54-2665 





SR 2 A 

~ 

****** 

101-4115 









SSAVRE 


022104 

#96-4105 

101-4115 

101-4115 

*102-4120 

#102-4120 





SSAVR6 


023772 

*102-4120 

102-4120 

*102-4120 





tSCOPE 


020266 

54-2655 

#92-4097 





#18-1491 

18-1491 

#18-1491 

JSETUP 

= 

000037 

#18-1491 

18-1491 

#18-1491 

18-1491 

#18-1491 

18-1491 


18-1491 

#18-1491 

92-4097 

93-4099 

93-4099 

93-4099 

93-4099 

95-4103 

95-4103 




100-4113 

100-4113 

102-4120 



*54-2709 




SSSWR 


0001 76 

#28-1733 

54-2697 

54-2702 

54-2703 

*54-2707 




SSTUP 

• 

177777 

#18-1491 

#18-1491 

18-1491 

#18-1491 

#18-1491 

18-1491 

#18-1491 

#18-1491 

18-1491 


#18-1491 

#18-1491 

18-1491 

#18-1491 

#18-1491 

18-1491 




tSVLAD 


020626 

92-4097 

#92-4097 








tSVPC 


000204 

#19-1494 

19-1494 





16-1486 

16-1486 

16-1486 

SSUR 

~ 

177400 

#16-1470 

16-1485 

16-1486 

16-1486 

16-1486 

16-1486 


16-1486 

21-1496 

21-1496 

21-1496 

55-2753 

56-2808 

57-2876 

59-2952 

60-301 1 




62-3087 

68-3280 

69-3411 

70-3472 

71-3489 

72-3503 

74-3567 

75-3584 

76-3598 




77-3633 

78-3689 

79-3724 

80-3778 

81-3796 

82-3833 

83-3846 

84-3873 

85-3900 




87-3972 

88-4015 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 




92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 




92-4097 

92-4097 

92-4097 

92-4097 

93-4099 

93-4099 

93-4099 

93-4099 

93-4099 




93-4099 

93-4099 

93-4099 

93-4099 

93-4099 

93-4099 

95-4103 

95-4103 

95-4103 




95-4103 

95-4103 

102-4120 







SSWREG 


020164 

54-2731 

77-3644 

78-3694 

#91-4095 



16-1486 


16-1486 

SSURMK 

= 

000340 

#16-1469 

16-1486 

16-1486 

16-1486 

16-1486 

16-1486 

16-1486 


16-1486 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

92-4097 




92-4097 

92-4097 

92-4097 



*102-4120 




tTBIT 


022076 

*54-2668 

*95-4103 

95-4103 

95-4103 

#95-4103 



106-4207 

tTESTN 


020146 

29-1900 

52-2598 

*87-3983 

#91-4095 

*92-4097 

*93-4099 

106-4205 

106-4206 


106-4208 

106-4209 

106-4210 

106-4211 

106-4212 

106-4213 

106-4214 

106-4215 

106-4216 




106-4217 

106-4218 

106-4219 

106-4220 

106-4221 

106-4222 

106-4223 

106-4224 

106-4225 




106-4226 

106-4227 

106-4228 

106-4229 

106-4230 


92-4097 

*95-4103 


tTIMES 


001212 

#21-1496 

*47-2450 

*92-4097 

92-4097 

*92-4097 

92-4097 

100-4113 

STKB 


001144 

#21-1496 

97-4107 

97-4107 

97-4107 

97-4107 

100-4113 

100-4113 

100-4113 

stks 


001142 

#21-1496 

54-2644 

97-4107 

97-4107 

97-4107 

97-4107 

100-4113 

100-4113 

100-4113 


100-4113 

#21-1496 

*38-2149 

38-2173 

*56-2820 

*56-2825 

*57-2881 

*57-2886 

57-2887 

57-2904 

tTMPO 

001174 


*61-3048 

*63-3132 

64-3157 

64-3163 

64-3186 

65-3201 

65-3220 

*68-3286 

*68-3352 




68-3370 

*68-3376 

*79-3754 

*79-3757 

*79-3758 

*83-3853 

83-3854 

83-3856 

•83-3860 




83-3861 

*84-3879 

84-3880 

*84-3882 

84-3883 

*84-3887 

84-3888 

*85-3906 

85-3907 




85-3909 

*85-3913 

85-3914 

106-4217 

106-4218 

106-4222 

106-4223 

106-4230 




N 12 


CKKUAE CREATED BY MACRO ON 1 1 -JAN-82 AT 11:32 PAGE 18 

SEQUENCE 156 

SYMBOL CROSS REFERENCE CREf VOI 


SYMBOL 

VALUE 

REFERENCES 







106-4223 

106-4230 

STMP1 

001 1 76 

#21-1496 

*42-2286 

*42-2289 

*44-2369 

*48-2465 

*49-2480 

*61-3049 

STMP2 

001200 

#21-1496 

*42-2290 

*44-2368 

*45-2403 

*45-2404 

*45-2405 

45-2406 

*45-2406 

*59-2953 

59-2998 

*83-385"* 

*83-3855 

83-3856 

83-3861 

*84-3880 

*84-3881 

84-3883 

84-3888 



*85-3907 

*85-3908 

85-3909 

85-3914 

68-3330 





STMP3 

001202 

#21-1496 

*57-2894 

57-2895 

*68-3329 

106-4221 




STMP4 

001204 

#21-1496 

*88-4036 

*88-4041 

106-4225 




61-3073 


STMP5 

001206 

#21-1496 

*41-2227 

41-2232 

41-2233 

*60-3028 

*60-3030 

61-3070 

*88-4042 


106-4219 

106-4225 

*60-3023 

60-3028 






STMP6 

001210 

#21-1496 

*60-3015 


55-2753 

#55-2753 

55-2790 

55-2808 

STN 

= 000032 

#16-1471 

16-1485 

54-2753 

55-2753 

55-2753 

56-2808 

56-2808 

56-2808 

#56-2808 

56-2851 

56-2853 

56-2876 

57-2876 

57-2876 



57-2876 

#57-2876 

58-2952 

59-2952 

59-2952 

59-2952 

#59-2952 

59-301 1 

60-301 1 



60-3011 

60-3011 

#60-3011 

61-3071 

61-3087 

62-3087 

#62-3087 

67-3280 

68-3280 



68-3280 

68-3280 

#68-3280 

68-3399 

68-3411 

69-3411 

69-3411 

69-3411 

#69-3411 



69-3428 

69-3460 

69-3472 

70-3472 

70-3472 

70-3472 

#70-3472 

70-3489 

71-3489 



71-3489 

71-3489 

#71-3489 

71-3503 

72-3503 

#72-3503 

73-3567 

74-3567 

74-3567 



74-3567 

#74-3567 

74-3584 

75-3584 

75-3584 

75-3584 

#75-3584 

75-3598 

76-3598 



76-3598 

76-3598 

#76-3598 

76-3633 

77-3633 

77-3633 

77-3633 

#77-3633 

77-3645 



77-3648 

77-3654 

77-3689 

78-3689 

78-3689 

78-3689 

#78-3689 

78-3711 

78-3724 



79-3724 

79-3724 

79-3724 

#79-3724 

79-3778 

80-3778 

80-3778 

80-3778 

#80-3778 



80-3783 

80-3796 

81-3796 

81-3796 

81-3796 

#81-3796 

81-3806 

81-3833 

82-3833 



82-3833 

82-3833 

#82-3833 

82-3836 

82-3846 

83-3846 

83-3846 

83-3846 

#83-3846 



83-3873 

84-3873 

84-3873 

84-3873 

#84-3873 

84-3900 

85-3900 

85-3900 

85-3900 



#85-3900 

86-3972 

87-3972 

87-3972 

87-3972 

#87-3972 

87-4001 

87-4015 

88-4015 



88-4015 

88-4015 

#88-4015 







STPB 

001150 

#21-1496 

97-4107 

97-4107 

97-4107 






STPFLG 

001155 

#21-1496 

97-4107 

97-4107 

97-4107 






STPS 

001146 

#21-1496 

97-4107 

97-4107 

97-4107 






STRAP 

023520 

54-2655 

#101-4115 








STRAP2 

023542 

#101-4115 

101-4115 




#101-4115 


101-4115 


STRP 

= 000016 

#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

#101-4115 

101-4115 

101-4115 



101-4115 

101-4115 

#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

#101-4115 

101-4115 



101-4115 

101-4115 

101-4115 

#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

#101-4115 



101-4115 

101-4115 

101-4115 

101-4115 

#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 



#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

#101-4115 

101-4116 

101-4116 

101-4116 



101-4116 

#101-4116 

101-4117 

101-4117 

101-4117 

101-4117 

#101-4117 

101-4118 

101-4118 



101-4118 

101-4118 

#101-4118 







STRPAD 

023554 

101-4115 

#101-4115 








STSTM 

STSTNM 

020004* 

001100 

#89-4067 

#21-1496 

*47-2446 

47-2447 

*73-3524 

*73-3528 

*77-3640 

*78-3710 

*87-3982 

92-4097 

92-4097 

*92-4097 

92-4097 

92-4097 

92-4097 

92-4097 

93-4099 

93-4099 

93-4099 



93-4099 

*95-4103 








STTYIN 

023454 

100-4113 

100-4113 

100-4113 

#100-4113 






STYP8N 

= ****** 

101-4115 









STYPDS 

022772 

#99-4111 

101-4115 

101-4115 







STYPE 

022200 

94-4101 

#97-4107 

101-4115 

101-4115 






STYPEC 

022412 

97-4107 

97-4107 

97-4107 

#97-4107 






STVPEX 

022542 

97-4107 

97-4107 

97-4107 

#97-4107 






STYPOC 

022570 

#98-4109 

101-4115 

101-4115 







STYPON 

022604 

98-4109 

#98-4109 

101-4115 







STYPOS 

022544 

#98-4109 

101-4115 









CKKUAE CREATED BY 

SYMBOL CROSS REFERENCE 
SYMBOL VAI LIE 
SUNIT 020154 

SUNITM 020010 

VJSyR 020166 

SVECT1 020212 

SVECT2 020214 

tXOF F = 000023 
SXON = 000021 
SXTSTR 020372 

If GET 4 = 000001 
SOFILL 022767 

S40CAT = ****** 

.tASTA = ****** 

.SX = 020000 
.*v = 002026 


MACRO ON 11 

1 

£ 

1 

OD 

f\J 

REFERENCES 


#91-4095 


#89-4067 


#91-4095 


#91-4095 


#91-4095 


97-4107 

97-4107 

97-4107 

97-4107 

#92-4097 


#95-4103 

#95-4103 

*98-4109 

*98-4109 

92-4097 

93-4099 

94-4101 

94-4101 

#89-4067 

89-4067 

#28-1731 

28-1734 


11:32 PAGE 19 
SEQUENCE 157 

CREF V01 


97- 4107 100-4113 

95-4103 

98- 4109 #98-4109 


B 13 



C 13 


CKKUAE 

MACRO CROSS 

MACRO NAME 

COMMEN 

DONE 

ENDCOM 

ESCAPE 

GETPRI 

GETSWR 

MSG 

MSG1 

MSG11 

MSG12 

MSG13 

MSG14 

HSG15 

MSG16 

MSG17 

MSG2 

MSG20 

HSG21 

MSG22 

HSG220 

MSG221 

MSG23 

MSG4 

MSG5 

MSG6 

MSG7 

MULT 

NEUTST 


POP 

PUSH 

REPORT 

SAVTST 

SETPRI 

SETTRA 

SETUP 

SKIP 

SKIPJ 

SLASH 

SPACE 

SSCOPE 

STARS 
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SEQUENCE 

158 






REFERENCE 



CREF V01 






REFERENCES 

#17-1489 

#16-1346 

#17-1489 

#17-1489 

95-4103 









#17-1489 

#17-1489 

#95-4103 







#84-3894 

#85-3900 

#80-3787 

#81-3796 

#81-3828 

#82-3833 

#82-3840 

#83-3846 

#83-3867 

#84-3873 

#87-4009 

#88-4015 









#54-2744 

55-2753 









#67-3262 

68-3280 









#68-3403 

#69-3411 









#69-3464 

70-3472 









#70-3479 

71-3489 









#71-3495 

#72-3503 









#73-3556 

#74-3567 









#74-3571 

75-3584 









#55-2794 

#56-2808 









#75-3590 

76-3598 









#76-3603 

#77-3633 









#77-3656 

78-3689 









#78-3712 

79-3724 









#79-3772 

80-3778 









#86-3961 

#87-3972 









#56-2864 

#57-2876 









#58-2942 

#59-2952 









#59-2999 

#60-3011 









#61-3074 

#17-1489 

#62-3087 









#16-1462 

#17-1489 

#54-2753 

#55-2808 

#56-2876 

#58-2952 

#59-3011 

#61-3087 

#67-3280 

#68-3411 

#69-3472 

#70-3489 

#71-3503 

#73-3567 

#74-3584 

#75-3598 

#76-3633 

#77-3689 

#78-3724 

#79-3778 

#80-3796 

#81-3833 

#82-3846 

#83-3873 

#84-3900 

#86-3972 

#87-4015 




#17-1489 

#94-4101 

#94-4101 

#96-4105 

#99-4111 

#102-4120 

#102-4120 




#17-1489 

94-4101 

94-4101 

94-4101 

96-4105 

99-4111 

102-4120 

102-4120 



#1 7-1489 
#16-1384 
#17-1489 

#93-4099 









#101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4115 

101-4116 

101-4117 

101-4118 







#17-1489 

#17-1489 

#55-2790 

#56-2851 

#56-2853 

#61-3071 

#68-3399 

#69-3428 

#69-3460 

#77-3645 

#77-3648 

#77-3654 

#80-3783 

#81-3806 

#82-3836 

#87-4001 






#16-1337 

#17-1489 

78-3711 









#16-1343 

#17-1489 









#16-1362 

#92-4097 






30-1913 

31-1941 

31-1946 

#17-1489 

19-1494 

21-1496 

21-1496 

29-1736 

29-1776 

30-1903 

32-1963 

32-1964 

32-1966 

32-1967 

32-1969 

32-1976 

33-1984 

33-1992 

34-1998 

34-2007 

35-2019 

35-2026 

36-2065 

36-2067 

36-2069 

36-2081 

37-2113 

37-2120 

38-2141 

38-2148 

39-2177 

39-2184 

40-2191 

40-2198 

41-2205 

41-2219 

42-2255 

42-2265 

44-2321 

44-2328 

46-2410 

46-2424 

47-2442 

48-2453 

48-2454 

49-2470 

50-2485 

50-2546 

51-2557 

55-2753 

55-2753 

56-2808 

56-2808 

57-2876 

57-2876 

59-2952 

59-2952 

60-301 1 

60-3011 

62-3087 

62-3087 

63-3107 

63-3117 

64-3152 

64-3156 

65-3192 

65-3198 

66-3223 

67-3247 

67-3252 



CKKUAE ( 

MACRO CROSS 
MACRO NAME 


CREATED BY MACRO ON 11 -JAN-82 AT 11 


SyRSU 

TRACK 


TRACK1 


TRMTRP 

TYP8IN 

TYPOEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

USER 

ZEROER 

ftCMRE 

SSCMTM 

SSESCA 

SSNEUT 


SSSET 


REFERENCE 

REFERENCES 

68-3280 

72-3505 

76-3598 

79-3724 

84-3873 

88-4015 

96-4105 

103-4124 

#17-1489 

#16-1376 

74-3567 

84-3873 

#16-1379 

74-3567 

84-3873 

#101-411*: 

#17-1489 

#17-1489 

#17-1489 

#17-1489 

#17-148° 

#17-1489 

#16-1459 

#16-1404 

#16-1352 

#20-1496 

#20-1496 

#17-1489 

#16-1462 

#69-3472 

#80-3796 

#101-4115 

#101-4115 


68-3280 

72-3508 

76-3598 

80-3778 

85-3900 

89-4067 

97-4107 


55-2753 

75-3584 

85-3900 

55-2753 

75-3584 

85-3900 


69-3411 

73-3519 

77-3633 

80-3778 

85-3900 

89-4067 

98-4109 


56-2808 

76-3598 

87-3972 

56-2808 

76-3598 

87-3972 


: 32 PAGE 
SEQUENCE 1 
CREF 

69-3411 

73-3521 

77-3633 

81-3796 

85-3920 

89-4067 

99-4111 


57-2876 

77-3633 

88-4015 

57-2876 

77-3633 

88-4015 


95-4103 95-4103 


#17-1489 

#21-1496 

#16-1394 

#21-1496 

#21-1496 

#17-1489 

#70-3489 

#81-3833 

#101-4115 

#101-4116 


#95-4103 #95-4103 


#93-4099 

#21-1496 

#21-1496 

#54-2753 

#71-3503 

#82-3846 

#101-4115 

#101-4117 


#21-1496 

#21-1496 

#55-2808 

#73-3567 

#83-3873 

#101-4115 

#101-4118 


SSSKIP 

#17-1489 

#55-2790 

#56-2851 

#56-2853 

#77-3654 

#80-3783 

#81-3806 

#82-3836 

.EQUIV 

#16-1340 

16-1460 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 


17-1489 

17-1489 

17-1489 

17-1489 


17-1489 

17-1489 

17-1489 

17-1489 


17-1489 

17-1489 

17-1489 

17-1489 


17-1489 

17-1489 

17-1489 

17-1489 

.HEAOE 

#16-1459 

16-1485 



.SETUP 

#16-1459 

18-1491 



.SURHI 

#16-1273 

#16-1486 



. SURLO 

#16-1486 

16-1487 



.SACT1 

#16-1459 

19-1494 



.SAPTB 

#16-1463 

#91-4095 



.SAPTH 

#16-1463 

#89-4067 



.SAPTY 

#16-1463 

#94-4101 



.JCATC 

#16-1459 

18-1492 



.SCMTA 

#16-692 

#16-1459 

#20-1496 


. SOB 20 

#16-1462 

103-4124 




D 13 


vOI 

70-3472 

70-3472 

71-3489 

71-3489 

72-35G3 

72-3503 

73-3531 

73-3543 

74-3567 

74-3567 

75-3584 

75-3584 

77-3633 

77-3633 

77-3633 

78-3689 

’8-3689 

79-3724 

81-3796 

82-3833 

82-3833 

83-3846 

83-j846 

84-3873 

85-3926 

86-3929 

86-3960 

87-3972 

87-3972 

88-4015 

90-4070 

91-4095 

92-4097 

93-4099 

94-4101 

95-4103 

100-4113 

100-4113 

100-4113 

101-4115 

102-4120 

102-4120 

59-2952 

60-3011 

68-3280 

69-3411 

70-3472 

71-3489 

78-3689 

79-3724 

80-3778 

81-3796 

82-3833 

83-3846 

59-2952 

60-3011 

68-3280 

69-3411 

70-3472 

71-3489 

78-3689 

79-3724 

80 -3778 

81-3796 

82-3833 

83-3846 


#21-1496 #21-1496 #21-1496 

#21-1496 #21-1496 #21-1496 #21-1496 


#56-2876 

#58-2952 

#59-301 1 

#61-3087 

#67-3280 

#68-3411 

#74-3584 

#75-3598 

#76-3633 

#77-3689 

#78-3724 

#79-3778 

#84-3900 

#86-3972 

#87-4015 




#101-4115 

#101-4115 

#101-4115 

#101-4115 

#101-4115 

#101-4115 

#61-3071 

#68-3399 

#69-3428 

#69-3460 

#77-3645 

#77-3648 

#87-4001 






17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

17-1489 

32-1977 

72-3510 







CK.KUAE CREATED BY MACRO ON 11 -JAN-82 AT 1 


MACRO CROSS 

REFERENCE 


MACRO NAME 

REFERENCES 

95-4103 

.IE OP 

*16-475 

.SERRO 

*16-863 

*93-4099 

. SPOUE 

*16-1462 

*102-4120 

.SREAD 

*16-1461 

100-4113 

.tSAVE 

*16-1461 

96-4105 

.SSCOP 

*16-1042 

92-4097 

.STRAP 

*16-1462 

*101-4115 

.STYPD 

*16-1461 

*99-4111 

.STvp£ 

*16-1461 

97-4107 

.STYPO 

*16-1461 

98-4109 

.1170 

*16-1459 

17-1489 


1:32 PAGE 22 
SEQUENCE 160 

CREF V01 



